integrate change#3081 from maint-5.005

p4raw-link: @3081 on //depot/maint-5.005/perl: a6271dd4063b034652af796970511ff6cbdf52bc

p4raw-id: //depot/perl@3083
p4raw-integrated: from //depot/maint-5.005/perl@3082 'copy in'
	ext/Errno/Errno_pm.PL (@2710..)

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