Author: stas Date: Mon Sep 19 19:18:54 2005 New Revision: 290331 URL: http://svn.apache.org/viewcvs?rev=290331&view=rev Log: tidy up
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=290331&r1=290330&r2=290331&view=diff ============================================================================== --- perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm (original) +++ perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm Mon Sep 19 19:18:54 2005 @@ -61,17 +61,18 @@ sub dump_hash { my ($self, $name, $entry) = @_; for my $elem (sort keys %{$entry}) { - $self->add_config(Data::Dumper->Dump([$entry->{$elem}], ["\$$name"."{'$elem'}"])); + $self->add_config(Data::Dumper->Dump([$entry->{$elem}], + ["\$$name"."{'$elem'}"])); } - + } sub dump_entry { my ($self, $name, $entry) = @_; - + return if not defined $entry; my $type = ref($entry); - + if ($type eq 'SCALAR') { $self->add_config(Data::Dumper->Dump([$$entry],[$name])); } @@ -85,7 +86,7 @@ sub dump_special { my ($self, @data) = @_; - + my @dump = grep { defined } @data; return unless @dump;