[compiler] Fix special constants in Xref.pm

p4raw-id: //depot/perlext/Compiler@495

diff --git a/B/Xref.pm b/B/Xref.pm
index 1289b11..0102856 100644 (file)
--- a/B/Xref.pm
+++ b/B/Xref.pm
@@ -250,7 +250,8 @@ sub pp_gv {
 sub pp_const {
     my $op = shift;
     my $sv = $op->sv;
-    $top = ["?", "", $sv->FLAGS & SVf_POK ? $sv->PV : "?"];
+    $top = ["?", "",
+           (class($sv) ne "SPECIAL" && $sv->FLAGS & SVf_POK) ? $sv->PV : "?"];
 }
 
 sub pp_method {