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

diff --git a/lib/CGI/t/carp.t b/lib/CGI/t/carp.t
index 8415816..e6a91d1 100644 (file)
--- 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");