From 982af928f0345225a4d41c7b6a29344d52be15be Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Sep 1999 20:52:51 +0000
Subject: [PATCH] avoid ass_u_ming uppercase types are not user objects
 (spotted by Kurt Starsinic)

p4raw-id: //depot/perl@4108
---
 ext/Data/Dumper/Dumper.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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) =
-- 
2.7.4