diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-08 20:52:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-08 20:52:51 +0000 |
| commit | 982af928f0345225a4d41c7b6a29344d52be15be (patch) | |
| tree | 43d0b815a3ac70e390f0f67deca99a4a9ca27f6e /ext/Data | |
| parent | c602c2efccc827c9a7133a2fa506b1e35c1b1f0c (diff) | |
| download | perl-982af928f0345225a4d41c7b6a29344d52be15be.tar.gz | |
avoid ass_u_ming uppercase types are not user objects (spotted
by Kurt Starsinic)
p4raw-id: //depot/perl@4108
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index 4705669e6d..c37e6b54dd 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -13,7 +13,7 @@ $VERSION = $VERSION = '2.101'; #$| = 1; -require 5.004; +require 5.004_02; require Exporter; require DynaLoader; require overload; @@ -214,9 +214,8 @@ sub _dump { if ($type) { # prep it, if it looks like an object - if ($type =~ /[a-z_:]/) { - my $freezer = $s->{freezer}; - $val->$freezer() if $freezer && UNIVERSAL::can($val, $freezer); + if (my $freezer = $s->{freezer}) { + $val->$freezer() if UNIVERSAL::can($val, $freezer); } ($realpack, $realtype, $id) = |