projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8945ff1
)
Fix for incorrect overloaded assignment
author
Chip Salzenberg
<chip@atlantic.net>
Wed, 9 Apr 1997 00:00:00 +0000
(
00:00
+0000)
committer
Chip Salzenberg
<chip@atlantic.net>
Wed, 9 Apr 1997 00:00:00 +0000
(
00:00
+0000)
(this is the same change as commit
9de372454b482d4516b3f3c85b686af8cb18d211
, but as applied)
gv.c
patch
|
blob
|
history
diff --git
a/gv.c
b/gv.c
index
9aa4c54
..
8bb1f10
100644
(file)
--- a/
gv.c
+++ b/
gv.c
@@
-1344,7
+1344,7
@@
int flags;
EXTEND(sp, notfound + 5);
PUSHs(lr>0? right: left);
PUSHs(lr>0? left: right);
- PUSHs(
assign ? &sv_undef : boolSV(lr>0)
);
+ PUSHs(
lr > 0 ? &sv_yes : ( assign ? &sv_undef : &sv_no )
);
if (notfound) {
PUSHs( sv_2mortal(newSVpv((char *)AMG_names[method + assignshift],0)) );
}