diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-08 22:59:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-08 22:59:01 +0000 |
| commit | d22779f5bc9230e35caedc48714cf84a936fc040 (patch) | |
| tree | c34ab2135b4bb633a78d2a3dd56975444638cbe8 /op.c | |
| parent | ae21ab7a583996be9282ef39a5a1bcfa2a228633 (diff) | |
| download | perl-d22779f5bc9230e35caedc48714cf84a936fc040.tar.gz | |
Retract #11212.
p4raw-id: //depot/perl@11223
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -4202,7 +4202,6 @@ Perl_cv_undef(pTHX_ CV *cv) SvREFCNT_dec((SV*)CvXSUBANY(cv).any_ptr); CvCONST_off(cv); } - CvDEFSTASH(cv) = Nullhv; if (CvPADLIST(cv)) { /* may be during global destruction */ if (SvREFCNT(CvPADLIST(cv))) { @@ -4320,7 +4319,6 @@ S_cv_clone2(pTHX_ CV *proto, CV *outside) CvGV(cv) = CvGV(proto); CvSTASH(cv) = CvSTASH(proto); CvROOT(cv) = OpREFCNT_inc(CvROOT(proto)); - CvDEFSTASH(cv) = CvDEFSTASH(proto); CvSTART(cv) = CvSTART(proto); if (outside) CvOUTSIDE(cv) = (CV*)SvREFCNT_inc(outside); @@ -4712,7 +4710,6 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) } cv_undef(cv); CvFLAGS(cv) = CvFLAGS(PL_compcv); - CvDEFSTASH(cv) = CvDEFSTASH(PL_compcv); CvOUTSIDE(cv) = CvOUTSIDE(PL_compcv); CvOUTSIDE(PL_compcv) = 0; CvPADLIST(cv) = CvPADLIST(PL_compcv); @@ -5048,7 +5045,6 @@ Perl_newXS(pTHX_ char *name, XSUBADDR_t subaddr, char *filename) CvFILE(cv) = filename; /* NOTE: not copied, as it is expected to be an external constant string */ CvXSUB(cv) = subaddr; - CvDEFSTASH(cv) = PL_defstash; if (name) { char *s = strrchr(name,':'); |