diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-25 00:01:52 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-25 00:01:52 +0000 |
| commit | a7adf1f0561599b9a11ff504577b6171e6441757 (patch) | |
| tree | 446ec5ee5de5d3c0c1e83d51082dc08a6c332e36 /ext/Opcode | |
| parent | 84dc3c4daae48410e767ac41da148ac5c6c45446 (diff) | |
| download | perl-a7adf1f0561599b9a11ff504577b6171e6441757.tar.gz | |
Add support for tied filehandles.
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 5d9d63f897..1fd2c6b891 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -46,7 +46,7 @@ op_names_init() while(i-- > 0) bitmap[i] = 0xFF; /* Take care to set the right number of bits in the last byte */ - bitmap[len-1] = ~(~0 << (maxo & 0x07)); + bitmap[len-1] = (maxo & 0x07) ? ~(~0 << (maxo & 0x07)) : 0xFF; put_op_bitspec(":all",0, opset_all); /* don't mortalise */ } |