[RT 34401] Applied patch by Jae Gangemi, who fixed code references in

@inc on Win32 systems.
mschilli · Sep 8, 2009 · 14ae276 · 14ae276
1 parent 99d62ae
commit 14ae276
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git 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
@@ -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();