diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-04-01 19:59:54 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-04-01 19:59:54 +0000 |
commit | 84335ee93339f99a0959258e640fa57e9f0ba6ab (patch) | |
tree | 7c83dc66076dbcac80f82d9dbccab64fc801578a /mg.c | |
parent | 27aecdc667df7df9dfe00209a819ab9abfc274ea (diff) | |
download | perl-84335ee93339f99a0959258e640fa57e9f0ba6ab.tar.gz |
Define sv_insert() as a wrapper to sv_insert_flags(), and move
Perl_sv_insert() to mathoms.c
p4raw-id: //depot/perl@33627
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1560,7 +1560,8 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg) * tell whether HINT_STRICT_REFS is in force or not. */ if (!strchr(s,':') && !strchr(s,'\'')) - Perl_sv_insert(aTHX_ sv, 0, 0, STR_WITH_LEN("main::")); + Perl_sv_insert_flags(aTHX_ sv, 0, 0, STR_WITH_LEN("main::"), + SV_GMAGIC); if (i) (void)rsignal(i, PL_csighandlerp); else |