perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl/t/net/perl util.pl
Date Thu, 20 Feb 2003 07:09:14 GMT
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";
  
  
  

Mime
View raw message