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