diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-01-20 21:46:34 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-21 14:43:58 +0000 |
| commit | 0196e43b1b9433295e0757182a574ae2a27fda73 (patch) | |
| tree | ba543fca2aaa30a0817717160db8ceb07ac0fcb8 /ext/Errno | |
| parent | f556e4acd593d3b38116c7cc2154ad2cf6a90332 (diff) | |
| download | perl-0196e43b1b9433295e0757182a574ae2a27fda73.tar.gz | |
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
Diffstat (limited to 'ext/Errno')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 286dbc6d46..3df9881eee 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); } |