This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
13be902
)
Fix assertion triggered by 13be902ce ([perl #77362] glob-to-lv assign)
author
Father Chrysostomos
<sprout@cpan.org>
Sun, 26 Sep 2010 19:19:06 +0000
(12:19 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Sun, 26 Sep 2010 19:19:06 +0000
(12:19 -0700)
sv.c
patch
|
blob
|
blame
|
history
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);
{