diff options
| author | Nicholas Clark <nick@ccl4.org> | 2000-09-28 12:52:24 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-02 23:59:20 +0000 |
| commit | 6caf225c7ac914f25ae26750a8a97110fd37bc6d (patch) | |
| tree | 856d83d888452d9b6419c600327b0c3660658cec /op.c | |
| parent | d873810b3537a2d7375918c521de90017ed077b7 (diff) | |
| download | perl-6caf225c7ac914f25ae26750a8a97110fd37bc6d.tar.gz | |
Re: [ID 20000828.017] bytecode fails with use subs;
Message-ID: <20000928115224.D7924@plum.flirble.org>
p4raw-id: //depot/perl@7118
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -4561,6 +4561,9 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) CvGV(cv) = (GV*)SvREFCNT_inc(gv); CvFILE(cv) = CopFILE(PL_curcop); CvSTASH(cv) = PL_curstash; + /* use subs; etc may have turned this on + As we're (re)defining the sub here it's definately not imported */ + GvIMPORTED_CV_off(gv); #ifdef USE_THREADS CvOWNER(cv) = 0; if (!CvMUTEXP(cv)) { |