diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-18 18:58:33 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-19 11:56:07 +0000 |
| commit | 9d43a7557743d779c74d69ffc6df7fc17711f3ec (patch) | |
| tree | 02d8cd5eba08a7280cdb29df184e7a518f04e2b5 /op.c | |
| parent | 79c1b905064b9400e9fab8968bd2c8bffaaa289a (diff) | |
| download | perl-9d43a7557743d779c74d69ffc6df7fc17711f3ec.tar.gz | |
PATCH: Propagate low byte of hints in cop.op_private
Message-ID: <20010418175833.B8976@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9754
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |