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;