diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-05 01:27:47 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-05 01:27:47 +0000 |
| commit | b77fae6586595023b0fbf51345fc9fccc5c5aca4 (patch) | |
| tree | 5d55de3d11a723779ed005c124598be224be5803 /ext/Safe | |
| parent | 8bb1f2cfb8a0127ff8e096c9c76a07311bd74c13 (diff) | |
| download | perl-b77fae6586595023b0fbf51345fc9fccc5c5aca4.tar.gz | |
Patch for older compilers which had namespace confusion.
Diffstat (limited to 'ext/Safe')
| -rw-r--r-- | ext/Safe/Safe.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Safe/Safe.xs b/ext/Safe/Safe.xs index 4437284932..ec7abce67a 100644 --- a/ext/Safe/Safe.xs +++ b/ext/Safe/Safe.xs @@ -82,13 +82,13 @@ ops_to_mask(...) void opname(...) PPCODE: - int i, opcode; + int i, myopcode; for (i = 0; i < items; i++) { - opcode = SvIV(ST(i)); - if (opcode < 0 || opcode >= maxo) + myopcode = SvIV(ST(i)); + if (myopcode < 0 || myopcode >= maxo) croak("opcode out of range"); - XPUSHs(sv_2mortal(newSVpv(op_name[opcode], 0))); + XPUSHs(sv_2mortal(newSVpv(op_name[myopcode], 0))); } void |