perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r266252 - /perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm
Date Fri, 02 Sep 2005 04:18:58 GMT
Author: pgollucci
Date: Thu Sep  1 21:18:53 2005
New Revision: 266252

URL: http://svn.apache.org/viewcvs?rev=266252&view=rev
Log:
s/my(/my (/g

Modified:
    perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm

Modified: perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm?rev=266252&r1=266251&r2=266252&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm (original)
+++ perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm Thu Sep  1 21:18:53 2005
@@ -54,12 +54,12 @@
 }
 
 sub dump_array {
-     my($self, $name, $entry) = @_;
+     my ($self, $name, $entry) = @_;
      $self->add_config(Data::Dumper->Dump([$entry], ["*$name"]));
 }
 
 sub dump_hash {
-    my($self, $name, $entry) = @_;
+    my ($self, $name, $entry) = @_;
     for my $elem (sort keys %{$entry}) {
         $self->add_config(Data::Dumper->Dump([$entry->{$elem}], ["\$$name"."{'$elem'}"]));

     }
@@ -67,7 +67,7 @@
 }
 
 sub dump_entry {
-    my($self, $name, $entry) = @_;
+    my ($self, $name, $entry) = @_;
     
     return if not defined $entry;
     my $type = ref($entry);
@@ -84,7 +84,7 @@
 }
 
 sub dump_special {
-    my($self, @data) = @_;
+    my ($self, @data) = @_;
     
     my @dump = grep { defined } @data;
     return unless @dump;



Mime
View raw message