perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r266263 - /perl/modperl/trunk/lib/ModPerl/FunctionMap.pm
Date Fri, 02 Sep 2005 04:25:25 GMT
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} }++;
     }



Mime
View raw message