Improvements to OP_ISBOOL

 * Apply OA_RETSCALAR, OA_TARGLEX and OA_FOLDCONST flags
 * Handle both 'get' and 'set' magic

1 files changed, 5 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index c4b84fe940..5901656d53 100644
--- a/pp.c
+++ b/pp.c
@@ -7215,9 +7215,13 @@ PP(pp_cmpchain_dup)
 PP(pp_isbool)
 {
     dSP;
+    dTARGET;
     SV *arg = POPs;
 
-    PUSHs(boolSV(SvIsBOOL(arg)));
+    SvGETMAGIC(arg);
+
+    sv_setbool_mg(TARG, SvIsBOOL(arg));
+    PUSHs(TARG);
     RETURN;
 }