From: SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp>
Date: Thu, 10 Sep 1998 09:59:33 +0000 (+0900)
Subject: fix h2ph handling of C<#error "foo">
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3e00f1c98d622b55bdce2e46f0d1c0024daafe4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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+(.*)/) {