PATCH: Propagate low byte of hints in cop.op_private

Message-ID: <20010418175833.B8976@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9754

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 7004975..25db66a 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -995,7 +995,7 @@ sub declare_warnings {
 sub declare_hints {
     my ($from, $to) = @_;
     my $bits = $to;
-    return $bits ? (sprintf "BEGIN {\$^H &= ~0xFF; \$^H |= %x}\n", $bits) : '';
+    return sprintf "BEGIN {\$^H &= ~0xFF; \$^H |= %x}\n", $bits;
 }
 
 sub pp_dbstate { pp_nextstate(@_) }

diff --git a/op.c b/op.c
index 6cd2f9a..207e762 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3616,7 +3616,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
        cop->op_ppaddr = PL_ppaddr[ OP_NEXTSTATE ];
     }
     cop->op_flags = flags;
-    cop->op_private = (PL_hints & HINT_BYTE);
+    cop->op_private = (PL_hints & HINT_PRIVATE_MASK);
 #ifdef NATIVE_HINTS
     cop->op_private |= NATIVE_HINTS;
 #endif