pp_subst: compact a couple of PUSHes using ?:

[perl5.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 0a2194a..34f7770 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2279,10 +2279,7 @@ PP(pp_subst)
            }
            TAINT_IF(rxtainted & 1);
            SPAGAIN;
-           if (rpm->op_pmflags & PMf_NONDESTRUCT)
-               PUSHs(TARG);
-           else
-               PUSHs(&PL_sv_yes);
+           PUSHs(rpm->op_pmflags & PMf_NONDESTRUCT ? TARG : &PL_sv_yes);
        }
        else {
            do {
@@ -2416,10 +2413,7 @@ PP(pp_subst)
 
 ret_no:
     SPAGAIN;
-    if (rpm->op_pmflags & PMf_NONDESTRUCT)
-       PUSHs(TARG);
-    else
-       PUSHs(&PL_sv_no);
+    PUSHs(rpm->op_pmflags & PMf_NONDESTRUCT ? TARG : &PL_sv_no);
     LEAVE_SCOPE(oldsave);
     RETURN;
 }