Change 11955 by ams@ams-lustre on 2001/09/09 02:54:21
Subject: Re: [PATCH perl@11938] slash slashes in lib/CGI/Carp.pm
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Sat, 08 Sep 2001 19:02:16 -0500
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/CGI/t/carp.t#2 edit
Differences ...
==== //depot/perl/lib/CGI/t/carp.t#2 (text) ====
Index: perl/lib/CGI/t/carp.t
--- perl/lib/CGI/t/carp.t.~1~ Sat Sep 8 21:00:06 2001
+++ perl/lib/CGI/t/carp.t Sat Sep 8 21:00:06 2001
@@ -164,7 +164,9 @@
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");
End of Patch.
