From 34768ba5589286d1bfbb84d0beabdb84ecd6b9df Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Sun, 6 May 2001 18:19:09 +0100
Subject: [PATCH] undefined folded constants Message-ID:
 <20010506171909.A7046@penderel>

p4raw-id: //depot/perl@10013
---
 ext/B/B/Deparse.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index ef367c2..959bb37 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3022,13 +3022,15 @@ sub const {
 	return $sv->NV;
     } elsif ($sv->FLAGS & SVf_ROK && $sv->can("RV")) {
 	return "\\(" . const($sv->RV) . ")"; # constant folded
-    } else {
+    } elsif ($sv->FLAGS & SVf_POK) {
 	my $str = $sv->PV;
 	if ($str =~ /[^ -~]/) { # ASCII for non-printing
 	    return single_delim("qq", '"', uninterp escape_str unback $str);
 	} else {
 	    return single_delim("q", "'", unback $str);
 	}
+    } else {
+	return "undef";
     }
 }
 
-- 
2.7.4