You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/09/02 06:18:58 UTC
svn commit: r266252 - /perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm
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;