From: Calle Dybedahl <calle@lysator.liu.se>
Date: Tue, 12 Sep 2000 19:38:02 +0000 (+0200)
Subject: Allow for whitespace between "#" and "line" in cpp output.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0d1d9b9406c0402a9e154640146d087c367cd8a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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') {