diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-16 16:54:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-16 16:54:06 +0000 |
| commit | 2e5b91de24d62e1e2bf0fd32a1d4d1d849cafc82 (patch) | |
| tree | 26bb2662cefa3272e2d2d365d577829fa36fbd2f /gv.c | |
| parent | 702119bc891cbff15043348ab2eab5c9d600e0be (diff) | |
| download | perl-2e5b91de24d62e1e2bf0fd32a1d4d1d849cafc82.tar.gz | |
Split out the use of SVp_SCREAM for GVs with GPs into a new symbolic
flag SVpgv_GP, and use this in isGV_with_GP_on/off.
p4raw-id: //depot/perl@29565
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -224,7 +224,8 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) } else Safefree(SvPVX_mutable(gv)); } - SvSCREAM_on(gv); + SvIOK_off(gv); + isGV_with_GP_on(gv); GvGP(gv) = Perl_newGP(aTHX_ gv); GvSTASH(gv) = stash; @@ -234,7 +235,6 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) if (multi || doproto) /* doproto means it _was_ mentioned */ GvMULTI_on(gv); if (doproto) { /* Replicate part of newSUB here. */ - SvIOK_off(gv); ENTER; if (has_constant) { /* newCONSTSUB takes ownership of the reference from us. */ |