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 au...@apache.org on 2006/07/07 21:05:45 UTC
svn commit: r419958 - /perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm
Author: autarch
Date: Fri Jul 7 12:05:45 2006
New Revision: 419958
URL: http://svn.apache.org/viewvc?rev=419958&view=rev
Log:
If I run the tests I will find the syntax errors I introduce.
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=419958&r1=419957&r2=419958&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm Fri Jul 7 12:05:45 2006
@@ -225,7 +225,7 @@
my ( $size, $share ) = ( 0, 0 );
if ( open my $fh, '<', '/proc/self/statm' ) {
- ( $size, $share ) = ( split /\s/, scalar <$fh> )[0,2]
+ ( $size, $share ) = ( split /\s/, scalar <$fh> )[0,2];
close $fh;
}
else {