stas 2003/02/19 23:09:14
Modified: t/net/perl util.pl
Log:
s/no warnings/local $^W = 0/, I forgot that we have to deal with perl <
5.6 on the mod_perl 1.0 land.
Revision Changes Path
1.17 +1 -1 modperl/t/net/perl/util.pl
Index: util.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/util.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- util.pl 20 Feb 2003 06:48:04 -0000 1.16
+++ util.pl 20 Feb 2003 07:09:14 -0000 1.17
@@ -113,7 +113,7 @@
{
my $str = undef;
my $expected = "";
- no warnings;
+ local $^W = 0;
my $received = Apache::unescape_url($str);
test ++$i, $received eq $expected;
print "expected: $expected\n";