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