Use SVf_FAKE from B instead of 0x01000000

0x01000000 was used instead of the macro
for it which is SVf_FAKE.

Note that we are using '^=' instead of '&= ~'

Author: atoomic

lib/B/C/OverLoad/B/PV.pm

@@ -2,7 +2,7 @@ package B::PV;
 
 use strict;
 
-use B qw/SVf_IsCOW SVf_ROK SVf_POK SVp_POK SVs_GMG SVt_PVGV SVf_READONLY/;
+use B qw/SVf_IsCOW SVf_ROK SVf_POK SVp_POK SVs_GMG SVt_PVGV SVf_READONLY SVf_FAKE/;
 use B::C::Debug qw/debug/;
 use B::C::Save qw/savecowpv/;
 use B::C::Save::Hek qw/save_shared_he get_sHe_HEK/;
@@ -41,7 +41,7 @@ sub do_save {
 
     # static pv, do not destruct. test 13 with pv0 "3".
     if ( !$shared_hek and $flags & SVf_READONLY and !$len ) {
-        $flags &= ~0x01000000;
+        $flags ^= SVf_FAKE; # turn off SVf_FAKE
         debug( pv => "turn off SVf_FAKE %s %s\n", $pv, $fullname );
     }
 

lib/B/C/Section.pm

@@ -2,6 +2,7 @@ package B::C::Section;
 use strict;
 
 # use warnings
+use B qw/SVf_FAKE/;
 
 use B::C::Helpers::Symtable ();
 my %sections;
@@ -24,7 +25,7 @@ sub new {
 
     # if sv add a dummy sv_arenaroot to support global destruction
     if ( $section eq 'sv' ) {
-        $self->add("NULL, 0, SVTYPEMASK|0x01000000, {0}");    # SVf_FAKE
+        $self->add("NULL, 0, SVTYPEMASK|".SVf_FAKE.", {0}");
         $self->debug("PL_sv_arenaroot");
     }