cvs commit: modperl-2.0/lib/Apache compat.pm

[dougm]

dougm       02/04/07 14:39:59

  Modified:    lib/Apache compat.pm
  Log:
  add use strict and a fix caught by that
  
  Revision  Changes    Path
  1.37      +3 -1      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.36
  retrieving revision 1.37
  diff -u -r1.36 -r1.37
  --- compat.pm 7 Apr 2002 21:34:43 -0000       1.36
  +++ compat.pm 7 Apr 2002 21:39:59 -0000       1.37
  @@ -1,5 +1,7 @@
   package Apache::compat;
   
  +use strict;
  +
   #1.xx compat layer
   #some of this will stay as-is
   #some will be implemented proper later on
  @@ -252,7 +254,7 @@
   
       return 0 if $length == 0;
   
  -    if (($length > 0) && ($total_bytes_send + IOBUFSIZE) > $length) {
  +    if (($length > 0) && ($total_bytes_sent + IOBUFSIZE) > $length) {
           $len = $length - $total_bytes_sent;
       }
       else {