cvs commit: modperl/t/net/perl/io perlio.pl

[dougm]

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