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:
02b3225
)
Don't forget $c in C<(($a,$b,$c)=(1,2))=(3,4,5)>
author
Chip Salzenberg
<chip@atlantic.net>
Mon, 30 Dec 1996 21:34:20 +0000
(09:34 +1200)
committer
Chip Salzenberg
<chip@atlantic.net>
Tue, 31 Dec 1996 20:59:00 +0000
(08:59 +1200)
pp_hot.c
patch
|
blob
|
blame
|
history
diff --git
a/pp_hot.c
b/pp_hot.c
index
9633d54
..
f957deb
100644
(file)
--- a/
pp_hot.c
+++ b/
pp_hot.c
@@
-725,8
+725,9
@@
PP(pp_aassign)
SP = lastrelem;
else
SP = firstrelem + (lastlelem - firstlelem);
+ lelem = firstlelem + (relem - firstrelem);
while (relem <= SP)
- *relem++ = &sv_undef;
+ *relem++ =
(lelem <= lastlelem) ? *lelem++ :
&sv_undef;
RETURN;
}
else {
@@
-1905,7
+1906,7
@@
PP(pp_entersub)
}
cx->blk_sub.savearray = GvAV(defgv);
cx->blk_sub.argarray = av;
- GvAV(defgv) =
cx->blk_sub.argarray
;
+ GvAV(defgv) =
(AV*)SvREFCNT_inc(av)
;
++MARK;
if (items > AvMAX(av) + 1) {