You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/01/29 20:49:30 UTC
cvs commit: modperl/t/internal http-get.t
dougm 01/01/29 11:49:29
Modified: t/net/perl/io perlio.pl
t/internal http-get.t
Log:
tweaks for 5.004_04
Revision Changes Path
1.8 +2 -1 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.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- perlio.pl 2000/12/22 23:59:39 1.7
+++ perlio.pl 2001/01/29 19:49:23 1.8
@@ -147,7 +147,8 @@
}
my $bytes_sent =
defined($offset) ? syswrite STDOUT, $msg, $len, $offset :
- defined($len) ? syswrite STDOUT, $msg, $len : syswrite STDOUT, $msg;
+ defined($len) ? syswrite STDOUT, $msg, $len :
+ syswrite STDOUT, $msg, length($msg);
my $real_b = $r->bytes_sent;
print "REAL Bytes sent = $real_b\n";
1.8 +1 -1 modperl/t/internal/http-get.t
Index: http-get.t
===================================================================
RCS file: /home/cvs/modperl/t/internal/http-get.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- http-get.t 2000/12/20 08:07:36 1.7
+++ http-get.t 2001/01/29 19:49:27 1.8
@@ -9,7 +9,7 @@
my(@sys_tests) = qw(syswrite_1 syswrite_2 syswrite_3);
-if($] > 5.003) {
+if($] > 5.005_03) {
$num_tests += (3 + @sys_tests);
push @test_scripts, qw(io/perlio.pl);
}