From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Sep 1999 20:52:51 +0000 (+0000)
Subject: avoid ass_u_ming uppercase types are not user objects (spotted
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=982af928f0345225a4d41c7b6a29344d52be15be;p=p5sagit%2Fp5-mst-13.2.git

avoid ass_u_ming uppercase types are not user objects (spotted
by Kurt Starsinic)

p4raw-id: //depot/perl@4108
---

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index 4705669..c37e6b5 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) =