From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Thu, 21 Jan 1999 02:46:34 +0000 (-0500)
Subject: Errno.pm suffers from \\ too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0196e43b1b9433295e0757182a574ae2a27fda73;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
     }