summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-07-08 22:59:01 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-08 22:59:01 +0000
commitd22779f5bc9230e35caedc48714cf84a936fc040 (patch)
treec34ab2135b4bb633a78d2a3dd56975444638cbe8 /toke.c
parentae21ab7a583996be9282ef39a5a1bcfa2a228633 (diff)
downloadperl-d22779f5bc9230e35caedc48714cf84a936fc040.tar.gz
Retract #11212.
p4raw-id: //depot/perl@11223
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 09f5988922..abb0c2d7b5 100644
--- a/toke.c
+++ b/toke.c
@@ -7444,7 +7444,6 @@ Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
PL_compcv = (CV*)NEWSV(1104,0);
sv_upgrade((SV *)PL_compcv, is_format ? SVt_PVFM : SVt_PVCV);
CvFLAGS(PL_compcv) |= flags;
- CvDEFSTASH(PL_compcv) = PL_defstash;
PL_comppad = newAV();
av_push(PL_comppad, Nullsv);