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

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 731360e..42a60b2 100644 (file)
--- 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+(.*)/) {