This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv.c: Remove SV_GMAGIC from sv_catpvn_flags call.
authorFather Chrysostomos <sprout@cpan.org>
Wed, 23 Nov 2011 16:43:19 +0000 (08:43 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:45:27 +0000 (01:45 -0800)
This function doesn’t take that flag.  It wasn’t doing anything.

gv.c

diff --git a/gv.c b/gv.c
index 8600665..ad46000 100644 (file)
--- 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);