From: Robin Houston <robin@cpan.org>
Date: Sun, 6 May 2001 17:19:09 +0000 (+0100)
Subject: undefined folded constants
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=34768ba5589286d1bfbb84d0beabdb84ecd6b9df;p=p5sagit%2Fp5-mst-13.2.git

undefined folded constants
Message-ID: <20010506171909.A7046@penderel>

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

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";
     }
 }