Item13181: nicely format PERL. Fingers crossed it doesn't SNAFU anyth…

…ing else.
foswiki · Feb 16, 2015 · f59bd37 · f59bd37
1 parent 26f4d39
commit f59bd37
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/core/lib/Foswiki/Configure/Reporter.pm b/core/lib/Foswiki/Configure/Reporter.pm
@@ -306,8 +306,11 @@ sub uneval {
     local $Data::Dumper::Terse    = 1;
     local $Data::Dumper::Indent   = $indent || 0;
     $datum = Data::Dumper->Dump( [$datum] );
-    $datum =~ s/^\$VAR1\s*=\s*//s;
     $datum =~ s/;\s*$//s;
+    if ( $datum =~ s/^(\$VAR\d+\s*=\s*)//s ) {
+        my $sp = ' ' x length($1);
+        $datum =~ s/^$sp//g;
+    }
     return $datum;
 }
 

diff --git a/core/lib/Foswiki/Configure/Value.pm b/core/lib/Foswiki/Configure/Value.pm
@@ -402,7 +402,7 @@ sub encodeValue {
         return $value;
     }
     elsif ( ref($value) ) {
-        return Foswiki::Configure::Reporter::uneval($value);
+        return Foswiki::Configure::Reporter::uneval( $value, 2 );
     }
     elsif ( $this->{typename} eq 'OCTAL' ) {
         return sprintf( '0%o', $value );