diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-09-08 14:02:16 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-09 02:54:21 +0000 |
| commit | 0106e1e7009c64ce545a45f6eb9370f52b832ad1 (patch) | |
| tree | 0ec65bd86c7421e55f467c9ee385bde97f54d465 /lib | |
| parent | 6fe628c6c4c132cb4d32e910c3a4ff177664bccb (diff) | |
| download | perl-0106e1e7009c64ce545a45f6eb9370f52b832ad1.tar.gz | |
Re: [PATCH perl@11938] slash slashes in lib/CGI/Carp.pm
Message-Id: <5.1.0.14.0.20010908185936.01aadcc0@mail.mac.com>
p4raw-id: //depot/perl@11955
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CGI/t/carp.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/CGI/t/carp.t b/lib/CGI/t/carp.t index 84158162ab..e6a91d1903 100644 --- a/lib/CGI/t/carp.t +++ b/lib/CGI/t/carp.t @@ -164,7 +164,9 @@ my $fake_out = join '', <STDOUT>; untie *STDOUT; open(STDOUT, ">&REAL_STDOUT"); -is( $fake_out, "<!-- warning: There is a problem at $0 line 95. -->\n", +my $fname = $0; +$fname =~ tr/<>-/\253\273\255/; # _warn does this so we have to also +is( $fake_out, "<!-- warning: There is a problem at $fname line 95. -->\n", 'warningsToBrowser() on' ); is($CGI::Carp::EMIT_WARNINGS, 1, "Warnings turned off"); |