Errno.pm suffers from \\ too

To: Mailing list Perl5 <perl5-porters@perl.org>
Message-ID: <19990121024634.A25600@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@2663

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 286dbc6..3df9881 100644 (file)
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -87,7 +87,16 @@ sub get_files {
            $pat = '^#(?:line)?\s*\d+\s+"([^"]+)"';
        }
        while(<CPPO>) {
-           $file{$1} = 1 if /$pat/o;
+           if ($^O eq 'os2') {
+               if (/$pat/o) {
+                  my $f = $1;
+                  $f =~ s,\\\\,/,g;
+                  $file{$f} = 1;
+               }
+           }
+           else {
+               $file{$1} = 1 if /$pat/o;
+           }
        }
        close(CPPO);
     }