From 5bcd1ef4a02daf3152ee41becf0004a7e450d106 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 23 Nov 2011 08:43:19 -0800 Subject: gv.c: Remove SV_GMAGIC from sv_catpvn_flags call. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This function doesn’t take that flag. It wasn’t doing anything. --- gv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gv.c') diff --git a/gv.c b/gv.c index 8600665256..ad46000999 100644 --- a/gv.c +++ b/gv.c @@ -1237,7 +1237,7 @@ Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, U32 flags) tainting if $FOO::AUTOLOAD was previously tainted, but is not now. */ sv_catpvn_flags( varsv, name, len, - SV_GMAGIC|SV_SMAGIC|(is_utf8 ? SV_CATUTF8 : SV_CATBYTES) + SV_SMAGIC|(is_utf8 ? SV_CATUTF8 : SV_CATBYTES) ); if (is_utf8) SvUTF8_on(varsv); -- cgit v1.2.1