Fix booleanness of regexps

I broke this when I stopped regexps from being POK in 5.18.

1 files changed, 3 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 198ae73bbe..ec8026122d 100644
--- a/sv.c
+++ b/sv.c
@@ -3155,6 +3155,9 @@ Perl_sv_2bool_flags(pTHX_ SV *const sv, const I32 flags)
 	}
 	return SvRV(sv) != 0;
     }
+    if (isREGEXP(sv))
+	return
+	  RX_WRAPLEN(sv) > 1 || (RX_WRAPLEN(sv) && *RX_WRAPPED(sv) != '0');
     return SvTRUE_common(sv, isGV_with_GP(sv) ? 1 : 0);
 }