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

fix pluggable and config

Browse source
This commit is contained in:
Graham Knop 2010-03-11 08:27:10 -06:00
parent 5a4e083d85
commit 39adb44007
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Config.pm
View file

@ -158,7 +158,7 @@ sub new {
my $filename = shift; my $filename = shift;
my $noCache = shift; my $noCache = shift;
if (!File::Spec->file_name_is_absolute($filename)) { if (!File::Spec->file_name_is_absolute($filename)) {
Cwd::realpath($filename = File::Spec->catfile(WebGUI::Paths->configBase, $filename)); $filename = Cwd::realpath(File::Spec->catfile(WebGUI::Paths->configBase, $filename));
} }
if (exists $config{$filename}) { if (exists $config{$filename}) {
return $config{$filename}; return $config{$filename};

3
t/Pluggable.t
View file

@ -65,7 +65,8 @@ is($dumper->Dump, q|$VAR1 = {
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Test find and findAndLoad # Test find and findAndLoad
{ # Block to localize @INC { # Block to localize @INC
local @INC = ( File::Spec->catdir( WebGUI::Test->getTestCollateralPath, 'Pluggable', 'lib' ); my $lib = File::Spec->catdir( WebGUI::Test->getTestCollateralPath, 'Pluggable', 'lib' );
local @INC = ( $lib );
# Use the i18n files to test # Use the i18n files to test
my @testFiles = (); my @testFiles = ();