From: Stephen McCamant <smcc@mit.edu>
Date: Sun, 6 Apr 2003 17:00:48 +0000 (-0400)
Subject: B::Deparse: sv_no != 0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5e614f21843d4cc6ff931ce9e734273c42248aa;p=p5sagit%2Fp5-mst-13.2.git

B::Deparse: sv_no != 0
Message-ID: <16016.38272.921140.343901@syllepsis.MIT.EDU>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index f2de6f7..6a1fc72 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3184,7 +3184,7 @@ sub single_delim {
 sub const {
     my $sv = shift;
     if (class($sv) eq "SPECIAL") {
-	return ('undef', '1', '0')[$$sv-1]; # sv_undef, sv_yes, sv_no
+	return ('undef', '1', '(!1)')[$$sv-1]; # sv_undef, sv_yes, sv_no
     } elsif (class($sv) eq "NULL") {
        return 'undef';
     } elsif ($sv->FLAGS & SVf_IOK) {