Author: pgollucci Date: Thu Sep 1 21:22:56 2005 New Revision: 266257 URL: http://svn.apache.org/viewcvs?rev=266257&view=rev Log: s/my(/my (/g
Modified: perl/modperl/trunk/lib/Apache2/Resource.pm Modified: perl/modperl/trunk/lib/Apache2/Resource.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Resource.pm?rev=266257&r1=266256&r2=266257&view=diff ============================================================================== --- perl/modperl/trunk/lib/Apache2/Resource.pm (original) +++ perl/modperl/trunk/lib/Apache2/Resource.pm Thu Sep 1 21:22:56 2005 @@ -55,7 +55,7 @@ sub debug { print STDERR @_ if $Debug } sub install_rlimit ($$$) { - my($res, $soft, $hard) = @_; + my ($res, $soft, $hard) = @_; my $name = $res; @@ -82,11 +82,11 @@ } sub handler { - while (my($k, $v) = each %ENV) { + while (my ($k, $v) = each %ENV) { next unless $k =~ /^PERL_RLIMIT_(\w+)$/; $k = $1; next if $k eq "DEFAULTS"; - my($soft, $hard) = split ":", $v, 2; + my ($soft, $hard) = split ":", $v, 2; $hard ||= $soft; my $set = install_rlimit $k, $soft, $hard; @@ -99,7 +99,7 @@ } sub default_handler { - while (my($k, $v) = each %Apache2::Resource::) { + while (my ($k, $v) = each %Apache2::Resource::) { next unless $k =~ s/^DEFAULT_/PERL_/; $ENV{$k} = ""; } @@ -114,7 +114,7 @@ for my $res (keys %$lim) { my $val = eval "&BSD::Resource::${res}()"; - my($soft, $hard) = getrlimit $val; + my ($soft, $hard) = getrlimit $val; (my $limit = $res) =~ s/^RLIMIT_//; ($soft, $hard) = ("$soft " . BM($soft), "$hard ". BM($hard)) if $is_mb{$limit};