diff options
| author | Kurt Starsinic <kstar@cpan.org> | 2003-03-09 19:54:49 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-13 20:57:32 +0000 |
| commit | ab5fe4d6aaf45c57b7af4b994a730291eee17efa (patch) | |
| tree | c844d7cb4af82a2698a541c4f8f30b585036aa23 /utils | |
| parent | f08cf8c782f69f7616abefbb3b247a3ec9d6264e (diff) | |
| download | perl-ab5fe4d6aaf45c57b7af4b994a730291eee17efa.tar.gz | |
[perl #20755] [PATCH] 5.8.0 h2ph barfs on checksum.h on RH6.2/7.2
Message-ID: <m3d6kyvazx.wl_rspier@pobox.com>
p4raw-id: //depot/perl@18963
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index f4b04f9ebf..27a7bf6834 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -489,10 +489,18 @@ sub next_line $out .= $1; } elsif ($in =~ s/^(\\.)//) { # \... $out .= $1; - } elsif ($in =~ s/^('(\\.|[^'\\])*')//) { # '... - $out .= $1; - } elsif ($in =~ s/^("(\\.|[^"\\])*")//) { # "... - $out .= $1; + } elsif ($in =~ /^'/) { # '... + if ($in =~ s/^('(\\.|[^'\\])*')//) { + $out .= $1; + } else { + next READ; + } + } elsif ($in =~ /^"/) { # "... + if ($in =~ s/^("(\\.|[^"\\])*")//) { + $out .= $1; + } else { + next READ; + } } elsif ($in =~ s/^\/\/.*//) { # //... # fall through } elsif ($in =~ m/^\/\*/) { # /*... |