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 /toke.c | |
| 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 'toke.c')
| -rw-r--r-- | toke.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -7437,6 +7437,7 @@ 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); |