diff options
| author | Calle Dybedahl <calle@lysator.liu.se> | 2000-09-12 21:38:02 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-12 17:43:33 +0000 |
| commit | d0d1d9b9406c0402a9e154640146d087c367cd8a (patch) | |
| tree | 864389d2961f4ee083ac56df33c6832e660dcd88 /ext/Errno | |
| parent | 862f1e8c450f143fb8997247930e40ce35542f7e (diff) | |
| download | perl-d0d1d9b9406c0402a9e154640146d087c367cd8a.tar.gz | |
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
Diffstat (limited to 'ext/Errno')
| -rw-r--r-- | ext/Errno/ChangeLog | 5 | ||||
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ext/Errno/ChangeLog b/ext/Errno/ChangeLog index 2bfa003d96..dd94b37baf 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 df68dc3bda..0666b2af60 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') { |