diff options
| author | Kurt D. Starsinic <kstar@wolfetech.com> | 1998-08-20 16:59:03 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 05:45:17 +0000 |
| commit | 5d42aa7bc9bf791efe4c2cf03a5b696d88d51458 (patch) | |
| tree | 83eb170bd3e0b3f63c32abbc980b386098b7fb8d /utils/h2ph.PL | |
| parent | 0f5d15d614a56a8b655f35e4e8c6a0dba34da106 (diff) | |
| download | perl-5d42aa7bc9bf791efe4c2cf03a5b696d88d51458.tar.gz | |
h2ph misquotes #error directives
Message-ID: <19980820205903.A12908@O2.chapin.edu>
p4raw-id: //depot/perl@1814
Diffstat (limited to 'utils/h2ph.PL')
| -rw-r--r-- | utils/h2ph.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 066f2c9c3f..731360e7fa 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"; } |