summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorChip Salzenberg <chip@atlantic.net>1997-04-09 00:00:00 +0000
committerChip Salzenberg <chip@atlantic.net>1997-04-09 00:00:00 +0000
commit5167a5b15b8d6d0a503d8b495559d7e964d46f99 (patch)
tree2f40c7745886b281fa99db5dd189fee9ffe32362 /gv.c
parent8945ff128fcfd0c205ea588d948d93b8633714b2 (diff)
downloadperl-5167a5b15b8d6d0a503d8b495559d7e964d46f99.tar.gz
Fix for incorrect overloaded assignment
(this is the same change as commit 9de372454b482d4516b3f3c85b686af8cb18d211, but as applied)
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 9aa4c54d52..8bb1f10105 100644
--- 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)) );
}