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 (file)
--- 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";
     }
 }