From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Wed, 11 Feb 1998 13:03:59 +0000 (+0000)
Subject: [compiler] Fix special constants in Xref.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1475138a0e30c3f84f731b7761d8635cbb7f4c8;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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 {