Author: pgollucci Date: Thu Sep 1 21:25:22 2005 New Revision: 266263 URL: http://svn.apache.org/viewcvs?rev=266263&view=rev Log: s/my(/my (/g
Modified: perl/modperl/trunk/lib/ModPerl/FunctionMap.pm Modified: perl/modperl/trunk/lib/ModPerl/FunctionMap.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/FunctionMap.pm?rev=266263&r1=266262&r2=266263&view=diff ============================================================================== --- perl/modperl/trunk/lib/ModPerl/FunctionMap.pm (original) +++ perl/modperl/trunk/lib/ModPerl/FunctionMap.pm Thu Sep 1 21:25:22 2005 @@ -76,7 +76,7 @@ sub guess_prefix { my $entry = shift; - my($name, $class) = ($entry->{name}, $entry->{class}); + my ($name, $class) = ($entry->{name}, $entry->{class}); my $prefix = ""; $name =~ s/^DEFINE_//; $name =~ s/^mpxs_//i; @@ -101,7 +101,7 @@ } sub parse { - my($self, $fh, $map) = @_; + my ($self, $fh, $map) = @_; my %cur; my $disabled = 0; @@ -125,7 +125,7 @@ next; } - my($name, $dispatch, $argspec, $alias) = split /\s*\|\s*/; + my ($name, $dispatch, $argspec, $alias) = split /\s*\|\s*/; my $return_type; if ($name =~ s/^([^:]+)://) { @@ -200,7 +200,7 @@ my $map = $self->get; my %prefix; - while (my($name, $ent) = each %$map) { + while (my ($name, $ent) = each %$map) { next unless $ent->{prefix}; $prefix{ $ent->{prefix} }++; }