From: Robin Houston <robin@cpan.org>
Date: Wed, 18 Apr 2001 17:58:33 +0000 (+0100)
Subject: PATCH: Propagate low byte of hints in cop.op_private
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d43a7557743d779c74d69ffc6df7fc17711f3ec;p=p5sagit%2Fp5-mst-13.2.git

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