Re: [perl #52740] crash when localizing a symtab entry

2008/4/11 via RT Niko Tyni <perlbug-followup@perl.org>:
> This snippet crashes Perl 5.10.0 and blead (as of change 33541 which
> is the last one in the utsl.gen.nz git repository) with a segmentation fault:
>
>  #!/usr/bin/perl -w
>  use Compress::Zlib;
>  use Devel::Symdump;
>  print Devel::Symdump->isa_tree;
>  __END__
>
> (The snippet is reduced from the mod_perl2 2.0.4rc1 test suite,
>  where Apache crashes on shutdown after the tests.)
>
> This can be reduced to
>
>  #!/usr/bin/perl
>  use constant "foo" => "a";
>  index("a", foo);
>  local(*g) = ${::}{foo};
>  __END__

Thanks for the impressive and detailed bug report, that was useful.

Here's a patch that solves the problem. I've not had time yet to run all tests
with it, but core tests are fine.

--- sv.c
+++ sv.c
@@ -3718,8 +3718,10 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, regi
                GvMULTI_on(dstr);
                return;
            }
-           glob_assign_glob(dstr, sstr, dtype);
-           return;
+           if (isGV_with_GP(sstr)) {
+               glob_assign_glob(dstr, sstr, dtype);
+               return;
+           }
        }

        if (dtype >= SVt_PV) {

• [perl #52740] crash when localizing a symtab entry by Rafael Garcia-Suarez via RT
• Re: [perl #52740] crash when localizing a symtab entry by Reini Urban
• [perl #52740] crash when localizing a symtab entry by Niko Tyni
• Re: [perl #52740] crash when localizing a symtab entry by Rafael Garcia-Suarez