diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-06-05 14:20:51 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-06-05 14:20:51 +0000 |
| commit | e858de61083066071eb1526df39bdaa094032c61 (patch) | |
| tree | a59a60b162edf35b5557f553d4812553b75a996d /ext/Opcode/Opcode.xs | |
| parent | 5196be3eab7cb5c37d1fce858e95874c8439e54f (diff) | |
| download | perl-e858de61083066071eb1526df39bdaa094032c61.tar.gz | |
More fixups for thrperl integration.
p4raw-id: //depot/perl@27
Diffstat (limited to 'ext/Opcode/Opcode.xs')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 9d4b726536..8307ade2ca 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -33,9 +33,10 @@ op_names_init() op_named_bits = newHV(); for(i=0; i < maxo; ++i) { - hv_store(op_named_bits, op_name[i],strlen(op_name[i]), - Sv=newSViv(i), 0); - SvREADONLY_on(Sv); + SV *sv; + sv = newSViv(i); + SvREADONLY_on(sv); + hv_store(op_named_bits, op_name[i], strlen(op_name[i]), sv, 0); } put_op_bitspec(":none",0, sv_2mortal(new_opset(Nullsv))); |