dougm 02/04/07 14:34:43
Modified: lib/Apache compat.pm
Log:
Submitted by: Dave Rolsky <[EMAIL PROTECTED]>
Reviewed by: dougm
a few fixes for Apache::compat
Revision Changes Path
1.36 +2 -2 modperl-2.0/lib/Apache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- compat.pm 24 Mar 2002 02:38:01 -0000 1.35
+++ compat.pm 7 Apr 2002 21:34:43 -0000 1.36
@@ -259,7 +259,7 @@
$len = IOBUFSIZE;
}
- while (read($fh, $buff, $len)) {
+ while (CORE::read($fh, $buff, $len)) {
$total_bytes_sent += $r->puts($buff);
}
@@ -369,7 +369,7 @@
elsif ($size < 1048576) {
$size = sprintf "%4dk", ($size + 512) / 1024;
}
- elsif (size < 103809024) {
+ elsif ($size < 103809024) {
$size = sprintf "%4.1fM", $size / 1048576.0;
}
else {
