diff options
| author | Gisle Aas <gisle@aas.no> | 2000-09-05 10:11:40 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-07 18:42:27 +0000 |
| commit | 54964f74243f54d078c7d7f57ff24310a7f5b499 (patch) | |
| tree | 5cf383c380aa049411dfc37bc8ff185dac364032 /ext/Data | |
| parent | 7c011d3a307861c607d64ca70fbcd88674e57e79 (diff) | |
| download | perl-54964f74243f54d078c7d7f57ff24310a7f5b499.tar.gz | |
Make Data::Dumper (non-XS) to work with changed semantics of ref().
Subject: Re: Undocumented(?) change to "ref" semantics in 5.7.0
Message-ID: <m3snrf8j1f.fsf@eik.g.aas.no>
p4raw-id: //depot/perl@7025
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 0ff48e648c..a8e59ab379 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -9,7 +9,7 @@ package Data::Dumper; -$VERSION = '2.101'; +$VERSION = '2.102'; #$| = 1; @@ -291,8 +291,7 @@ sub _dump { $s->{level}++; $ipad = $s->{xpad} x $s->{level}; - - if ($realtype eq 'SCALAR') { + if ($realtype eq 'SCALAR' || $realtype eq 'REF') { if ($realpack) { $out .= 'do{\\(my $o = ' . $s->_dump($$val, "\${$name}") . ')}'; } |