diff options
author | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
commit | 5167a5b15b8d6d0a503d8b495559d7e964d46f99 (patch) | |
tree | 2f40c7745886b281fa99db5dd189fee9ffe32362 /gv.c | |
parent | 8945ff128fcfd0c205ea588d948d93b8633714b2 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) ); } |