Re: [perl #30197] perlbug AutoReply: Data::Dumper does not indent the deparsed code...

Message-ID: <34D483170C7F84E0DFBE442B@andromede.in.reaumur.net>
(with a test adjustment)

p4raw-id: //depot/perl@22926

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index 1760381..763a41f 100644 (file)
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -9,7 +9,7 @@
 
 package Data::Dumper;
 
-$VERSION = '2.121';
+$VERSION = '2.121_01';
 
 #$| = 1;
 
@@ -381,7 +381,7 @@ sub _dump {
       if ($s->{deparse}) {
        require B::Deparse;
        my $sub =  'sub ' . (B::Deparse->new)->coderef2text($val);
-       $pad    =  $s->{sep} . $s->{pad} . $s->{xpad} . $s->{apad} . '    ';
+       $pad    =  $s->{sep} . $s->{pad} . $s->{apad} . $s->{xpad} x ($s->{level} - 1);
        $sub    =~ s/\n/$pad/gse;
        $out   .=  $sub;
       } else {

diff --git a/ext/Data/Dumper/t/dumper.t b/ext/Data/Dumper/t/dumper.t
index 92cd3ef..340a539 100755 (executable)
--- a/ext/Data/Dumper/t/dumper.t
+++ b/ext/Data/Dumper/t/dumper.t
@@ -960,8 +960,8 @@ TEST q(Data::Dumper->new([[$c, $d]])->Dumpxs;)
   $WANT = <<'EOT';
 #$VAR1 = {
 #          foo => sub {
-#                         print 'foo';
-#                     }
+#                     print 'foo';
+#                 }
 #        };
 EOT