Revert "Config::JSON stopped providing a BUILDARGS method, so we can't "around" it. subclass new() the old fashioned way and bump the Config::JSON version dep so we know we're getting the non-Moose one."

scottwalters · scottwalters · commit 560e7228fce8 · 2012-07-10T14:04:50.000-04:00
... fix is bad Moose style and no one can replicate this problem but me; need to look harder for the problem locally This reverts commit 55aead8.
diff --git a/lib/WebGUI/Config.pm b/lib/WebGUI/Config.pm
@@ -100,12 +100,13 @@ The filename of the config file to read.
 
 =cut
 
-sub new {
-    my $package = shift;
+around BUILDARGS => sub {
+    my $orig = shift;
+    my $class = shift;
     my $filename = shift;
     $filename = Cwd::realpath(File::Spec->rel2abs($filename, WebGUI::Paths->configBase));
-    return $package->SUPER::new($filename);
-}
+    return $class->$orig($filename);
+};
 
 1;
 
diff --git a/sbin/testEnvironment.pl b/sbin/testEnvironment.pl
@@ -111,7 +111,7 @@ BEGIN
 checkModule("JSON",                         2.12         );
 checkModule("JSON::Any",                    1.22         );
 checkModule("JSON::PP",                     0.00         );
-checkModule("Config::JSON",                 1.5100       );
+checkModule("Config::JSON",                 "1.3.1"      );
 checkModule("Text::CSV_XS",                 "0.64"       );
 checkModule("Net::CIDR::Lite",              0.20         );
 checkModule("Finance::Quote",               1.15         );
