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 (file)
--- 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) {