From d0d1d9b9406c0402a9e154640146d087c367cd8a Mon Sep 17 00:00:00 2001 From: Calle Dybedahl Date: Tue, 12 Sep 2000 21:38:02 +0200 Subject: [PATCH] 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 --- ext/Errno/ChangeLog | 5 +++++ ext/Errno/Errno_pm.PL | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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') { -- 2.7.4