This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix assertion triggered by 13be902ce ([perl #77362] glob-to-lv assign)
authorFather Chrysostomos <sprout@cpan.org>
Sun, 26 Sep 2010 19:19:06 +0000 (12:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 26 Sep 2010 19:19:06 +0000 (12:19 -0700)
sv.c

diff --git a/sv.c b/sv.c
index 3edd796..fb30ff3 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3589,7 +3589,7 @@ S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype)
 
     PERL_ARGS_ASSERT_GLOB_ASSIGN_GLOB;
 
-    if (dtype != SVt_PVGV) {
+    if (dtype != SVt_PVGV && !isGV_with_GP(dstr)) {
        const char * const name = GvNAME(sstr);
        const STRLEN len = GvNAMELEN(sstr);
        {