perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache compat.pm
Date Tue, 29 Jan 2002 15:56:57 GMT
dougm       02/01/29 07:56:56

  Modified:    lib/Apache compat.pm
  Log:
  untabify
  
  Revision  Changes    Path
  1.34      +6 -7      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.33
  retrieving revision 1.34
  diff -u -r1.33 -r1.34
  --- compat.pm	29 Jan 2002 07:55:56 -0000	1.33
  +++ compat.pm	29 Jan 2002 15:56:56 -0000	1.34
  @@ -354,29 +354,28 @@
   package Apache::Util;
   
   sub size_string {
  -    my ($size) = shift;
  +    my($size) = @_;
   
       if (!$size) {
  -	$size = "   0k";
  +        $size = "   0k";
       }
       elsif ($size == -1) {
           $size = "    -";
       }
       elsif ($size < 1024) {
  -	$size = "   1k";
  +        $size = "   1k";
       }
       elsif ($size < 1048576) {
  -	$size = sprintf "%4dk", ($size + 512) / 1024;
  +        $size = sprintf "%4dk", ($size + 512) / 1024;
       }
       elsif (size < 103809024) {
  -	$size = sprintf "%4.1fM", $size / 1048576.0;
  +        $size = sprintf "%4.1fM", $size / 1048576.0;
       }
       else {
  -	$size = sprintf "%4dM", ($size + 524288) / 1048576;
  +        $size = sprintf "%4dM", ($size + 524288) / 1048576;
       }
   
       return $size;
  -
   }
   
   1;
  
  
  

Mime
View raw message