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 | |
| parent | 5196be3eab7cb5c37d1fce858e95874c8439e54f (diff) | |
| download | perl-e858de61083066071eb1526df39bdaa094032c61.tar.gz | |
More fixups for thrperl integration.
p4raw-id: //depot/perl@27
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Makefile.PL | 2 | ||||
| -rw-r--r-- | ext/Opcode/Opcode.pm | 2 | ||||
| -rw-r--r-- | ext/Opcode/Opcode.xs | 7 |
3 files changed, 6 insertions, 5 deletions
diff --git a/ext/Opcode/Makefile.PL b/ext/Opcode/Makefile.PL index 7fdcdf6ac1..48a6ed82b8 100644 --- a/ext/Opcode/Makefile.PL +++ b/ext/Opcode/Makefile.PL @@ -3,5 +3,5 @@ WriteMakefile( NAME => 'Opcode', MAN3PODS => ' ', VERSION_FROM => 'Opcode.pm', - XS_VERSION => '1.02' + XS_VERSION => '1.03' ); diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm index a35ad1b47b..2fe23f0711 100644 --- a/ext/Opcode/Opcode.pm +++ b/ext/Opcode/Opcode.pm @@ -5,7 +5,7 @@ require 5.002; use vars qw($VERSION $XS_VERSION @ISA @EXPORT_OK); $VERSION = "1.04"; -$XS_VERSION = "1.02"; +$XS_VERSION = "1.03"; use strict; use Carp; 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))); |