Skip to content
Permalink
Browse files

Config::JSON stopped providing a BUILDARGS method, so we can't "aroun…

…d" it. subclass new() the old fashioned way and bump the Config::JSON version dep so we know we're getting the non-Moose one.
  • Loading branch information...
scottwalters committed Jul 10, 2012
1 parent f4aacb9 commit 55aead887bd1b937169e09cef7710351634a103e
Showing with 5 additions and 6 deletions.
  1. +4 −5 lib/WebGUI/Config.pm
  2. +1 −1 sbin/testEnvironment.pl
@@ -100,13 +100,12 @@ The filename of the config file to read.
=cut

around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
sub new {
my $package = shift;
my $filename = shift;
$filename = Cwd::realpath(File::Spec->rel2abs($filename, WebGUI::Paths->configBase));
return $class->$orig($filename);
};
return $package->SUPER::new($filename);
}

1;

@@ -111,7 +111,7 @@ BEGIN
checkModule("JSON", 2.12 );
checkModule("JSON::Any", 1.22 );
checkModule("JSON::PP", 0.00 );
checkModule("Config::JSON", "1.3.1" );
checkModule("Config::JSON", 1.5100 );
checkModule("Text::CSV_XS", "0.64" );
checkModule("Net::CIDR::Lite", 0.20 );
checkModule("Finance::Quote", 1.15 );

0 comments on commit 55aead8

Please sign in to comment.
You can’t perform that action at this time.