diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-26 12:19:06 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-26 12:19:06 -0700 |
| commit | bec4f4b4610b628e92890392df1dcddac6e7b7e8 (patch) | |
| tree | e675df1e2a678296686a4d980c100daa9451b391 /sv.c | |
| parent | 13be902cef8b01c085a6b8b1b59fa2754a10cdfb (diff) | |
| download | perl-bec4f4b4610b628e92890392df1dcddac6e7b7e8.tar.gz | |
Fix assertion triggered by 13be902ce ([perl #77362] glob-to-lv assign)
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); { |