Allow for whitespace between "#" and "line" in cpp output.

Subject: [PATCH] Re: Problems compiling bleadperl on Unicos 9
Message-ID: <867l8hy0hx.fsf_-_@tezcatlipoca.algonet.se>

p4raw-id: //depot/perl@7067

diff --git a/ext/Errno/ChangeLog b/ext/Errno/ChangeLog
index 2bfa003..dd94b37 100644 (file)
--- a/ext/Errno/ChangeLog
+++ b/ext/Errno/ChangeLog
@@ -1,3 +1,8 @@
+Change 171 on 2000-09-12 by <calle@lysator.liu.se> (Calle Dybedahl)
+
+       - Fixed filename-extracting regexp to allow whitespace between
+         "#" and "line", which the cpp on Unicos 9 produces.
+
 Change 170 on 1998/07/05 by <gbarr@pobox.com> (Graham Barr)
 
        Fixed three problems reported by Hans Mulder for NeXT

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index df68dc3..0666b2a 100644 (file)
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -102,7 +102,7 @@ sub get_files {
            $pat = '^/\*\s+(.+)\s+\d+\s*:\s+\*/';
        }
        else {
-           $pat = '^#(?:line)?\s*\d+\s+"([^"]+)"';
+           $pat = '^#\s*(?:line)?\s*\d+\s+"([^"]+)"';
        }
        while(<CPPO>) {
            if ($^O eq 'os2' or $^O eq 'MSWin32') {