From 5d42aa7bc9bf791efe4c2cf03a5b696d88d51458 Mon Sep 17 00:00:00 2001 From: "Kurt D. Starsinic" Date: Thu, 20 Aug 1998 16:59:03 -0400 Subject: [PATCH] h2ph misquotes #error directives Message-ID: <19980820205903.A12908@O2.chapin.edu> p4raw-id: //depot/perl@1814 --- t/lib/h2ph.pht | 2 +- utils/h2ph.PL | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/lib/h2ph.pht b/t/lib/h2ph.pht index 80867a6..d5e7434 100644 --- a/t/lib/h2ph.pht +++ b/t/lib/h2ph.pht @@ -27,7 +27,7 @@ unless(defined(&_H2PH_H_)) { if(!(defined (defined(&__SOMETHING_MORE_IMPORTANT) ? &__SOMETHING_MORE_IMPORTANT : 0))) { } elsif(!(defined (defined(&__SOMETHING_REALLY_REALLY_IMPORTANT) ? &__SOMETHING_REALLY_REALLY_IMPORTANT : 0))) { - die("Nup, can't go on "); + die("Nup\,\ can\'t\ go\ on\ "); } else { eval 'sub EVERYTHING_IS_OK () {1;}' unless defined(&EVERYTHING_IS_OK); } diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 066f2c9..731360e 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -231,9 +231,9 @@ while (defined ($file = next_file())) { } elsif(/^undef\s+(\w+)/) { print OUT $t, "undef(&$1) if defined(&$1);\n"; } elsif(/^error\s+(.*)/) { - print OUT $t, "die(\"$1\");\n"; + print OUT $t, "die(\"", quotemeta($1), "\");\n"; } elsif(/^warning\s+(.*)/) { - print OUT $t, "warn(\"$1\");\n"; + print OUT $t, "warn(\"", quotemeta($1), "\");\n"; } elsif(/^ident\s+(.*)/) { print OUT $t, "# $1\n"; } -- 2.7.4