perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r290331 - /perl/modperl/trunk/lib/Apache2/PerlSections/Dump.pm
Date Tue, 20 Sep 2005 02:19:00 GMT
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;
 



Mime
View raw message