diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-06 00:14:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-06 00:14:29 +0000 |
| commit | c8984b0bd19897e6e30588055ac0338326f20a34 (patch) | |
| tree | 76a5d2962ac34f2579863b1debe3efeede09fdea /ext/Data | |
| parent | 7575fa06ca7baf15c82a0561c39ca2f5cbfe534c (diff) | |
| download | perl-c8984b0bd19897e6e30588055ac0338326f20a34.tar.gz | |
minor bug in dumping blessed subrefs
p4raw-id: //depot/perl@2816
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index 4369664a5a..b1fd2b790a 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -9,7 +9,7 @@ package Data::Dumper; -$VERSION = $VERSION = '2.10'; +$VERSION = $VERSION = '2.101'; #$| = 1; @@ -326,8 +326,7 @@ sub _dump { $out .= ($name =~ /^\%/) ? ')' : '}'; } elsif ($realtype eq 'CODE') { - $out .= '"DUMMY"'; - $out = 'sub { ' . $out . ' }'; + $out .= 'sub { "DUMMY" }'; carp "Encountered CODE ref, using dummy placeholder" if $s->{purity}; } else { |