diff options
| author | Graham Barr <gbarr@pobox.com> | 1997-11-05 11:22:34 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-08 14:17:10 +0000 |
| commit | 246699ca5e3af04fcf52cf11c1535421dd986e59 (patch) | |
| tree | 6e3d40d548d2d8ffb7c14a6c3558932520740be1 /ext/Opcode/Opcode.xs | |
| parent | 74c7603757455e9ae40e2976bf9b439d7ba8be55 (diff) | |
| download | perl-246699ca5e3af04fcf52cf11c1535421dd986e59.tar.gz | |
(Retracted by #11223.)
Subject: [PATCH] Re: Problem with Safe.pm and Perl 5.004
Message-Id: <3460FFBA.6DA51F46@ti.com>
p4raw-id: //depot/perl@11212
Diffstat (limited to 'ext/Opcode/Opcode.xs')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 6c583123b3..5f091f8be5 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -290,6 +290,7 @@ PPCODE: GvHV(PL_incgv) = (HV*)SvREFCNT_inc(GvHV(gv_HVadd(gv_fetchpv("INC",TRUE,SVt_PVHV)))); PUSHMARK(SP); + CvDEFSTASH(SvRV(codesv)) = PL_defstash; perl_call_sv(codesv, GIMME|G_EVAL|G_KEEPERR); /* use callers context */ SPAGAIN; /* for the PUTBACK added by xsubpp */ LEAVE; |