perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/t/net/perl/io perlio.pl
Date Fri, 22 Dec 2000 23:59:39 GMT
dougm       00/12/22 15:59:39

  Modified:    t/net/perl/io perlio.pl
  Log:
  fix variable will not stay shared
  
  Revision  Changes    Path
  1.7       +5 -4      modperl/t/net/perl/io/perlio.pl
  
  Index: perlio.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/io/perlio.pl,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- perlio.pl	2000/12/20 08:07:37	1.6
  +++ perlio.pl	2000/12/22 23:59:39	1.7
  @@ -15,7 +15,7 @@
   my $r = shift;
   my $sub = "test_$ENV{QUERY_STRING}";
   if (defined &{$sub}) {
  -    &{$sub};
  +    &{$sub}($r);
   }
   else {
       print "Status: 200 Bottles of beer on the wall\n",
  @@ -114,18 +114,19 @@
   }
   
   sub test_syswrite_1 {
  -    test_syswrite();
  +    test_syswrite(shift);
   }
   
   sub test_syswrite_2 {
  -    test_syswrite(160);
  +    test_syswrite(shift,160);
   }
   
   sub test_syswrite_3 {
  -    test_syswrite(80, 2000);
  +    test_syswrite(shift,80, 2000);
   }
   
   sub test_syswrite {
  +    my $r = shift;
       my $len = shift;
       my $offset = shift;
       my $msg = "";
  
  
  

Mime
View raw message