diff --git a/Changes b/Changes index 77b12d55..a71a2c2b 100644 --- a/Changes +++ b/Changes @@ -14,6 +14,8 @@ * (ms) [RT 34400] New :nostrict target which allows redefining a category within a Log4perl configuration file without error or even a warning. + * (ms) [RT 34401] Applied patch by Jae Gangemi, who fixed + code references in @INC on Win32 systems. 1.24 (2009/07/08) * (ms) Fixed bug with Log::Log4perl::Util::tmpfile_name which diff --git a/lib/Log/Log4perl/Util.pm b/lib/Log/Log4perl/Util.pm index bbc317bb..936b93d7 100644 --- a/lib/Log/Log4perl/Util.pm +++ b/lib/Log/Log4perl/Util.pm @@ -26,9 +26,9 @@ sub module_available { # Check if a module is available # trying to implement them as diligently as possible. For # details, check "perldoc -f require". if(ref $dir eq "CODE") { - return 1 if $dir->($dir, $relpath); + return 1 if $dir->($dir, $relpath_with_forward_slashes); } elsif(ref $dir eq "ARRAY") { - return 1 if $dir->[0]->($dir, $relpath); + return 1 if $dir->[0]->($dir, $relpath_with_forward_slashes); } elsif(ref $dir and ref $dir !~ /^(GLOB|SCALAR|HASH|REF|LVALUE)$/) { return 1 if $dir->INC();