From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 8 Sep 2001 19:02:16 +0000 (-0500)
Subject: Re: [PATCH perl@11938] slash slashes in lib/CGI/Carp.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0106e1e7009c64ce545a45f6eb9370f52b832ad1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");