diff options
| author | SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp> | 1998-09-10 18:59:33 +0900 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 10:09:23 +0000 |
| commit | d3e00f1c98d622b55bdce2e46f0d1c0024daafe4 (patch) | |
| tree | 830db436ae0da6c6cd13633df3c78fdac21d1681 /utils | |
| parent | 54fbcc6e8ef8d379545ca2bc110f2f19a7c73715 (diff) | |
| download | perl-d3e00f1c98d622b55bdce2e46f0d1c0024daafe4.tar.gz | |
fix h2ph handling of C<#error "foo">
Message-Id: <19980910095933N.ksakai@netwk.ntt-at.co.jp>
Subject: [5.005_02] h2ph problem
p4raw-id: //depot/perl@1845
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 731360e7fa..42a60b2d19 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -230,6 +230,8 @@ while (defined ($file = next_file())) { print OUT $t,"}\n"; } elsif(/^undef\s+(\w+)/) { print OUT $t, "undef(&$1) if defined(&$1);\n"; + } elsif(/^error\s+(".*")/) { + print OUT $t, "die($1);\n"; } elsif(/^error\s+(.*)/) { print OUT $t, "die(\"", quotemeta($1), "\");\n"; } elsif(/^warning\s+(.*)/) { |