perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From auta...@apache.org
Subject svn commit: r419950 - /perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm
Date Fri, 07 Jul 2006 18:35:26 GMT
Author: autarch
Date: Fri Jul  7 11:35:26 2006
New Revision: 419950

URL: http://svn.apache.org/viewvc?rev=419950&view=rev
Log:
Remove unused variable.

Modified:
    perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm

Modified: perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm
URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm?rev=419950&r1=419949&r2=419950&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm Fri Jul  7 11:35:26 2006
@@ -222,10 +222,10 @@
 sub _linux_size_check {
     my $class = shift;
 
-    my ( $size, $resident, $share ) = ( 0, 0, 0 );
+    my ( $size, $share ) = ( 0, 0 );
 
     if ( open my $fh, '<', '/proc/self/statm' ) {
-        ( $size, $resident, $share ) = split /\s/, scalar <$fh>;
+        ( $size, $share ) = ( split /\s/, scalar <$fh> )[0,2]
         close $fh;
     }
     else {



Mime
View raw message