oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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."

Browse source 
... 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 55aead887b.
This commit is contained in:
Scott Walters 2012-07-10 14:04:50 -04:00
parent 55aead887b
commit 560e7228fc
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Config.pm
View file

@ -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;

2
sbin/testEnvironment.pl
View file

@ -111,7 +111,7 @@ checkModule("XML::FeedPP::MediaRSS", 0.02 );
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 );