From: Calle Dybedahl 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 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 (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() { if ($^O eq 'os2' or $^O eq 'MSWin32') {