sv_force_normal: Don’t confuse regexps with cows

Otherwise we get assertion failures and possibly corrupt
string tables.

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 6e8ed664c8..3736e2744d 100644
--- a/sv.c
+++ b/sv.c
@@ -4797,7 +4797,7 @@ Perl_sv_force_normal_flags(pTHX_ register SV *const sv, const U32 flags)
     }
 #else
     if (SvREADONLY(sv)) {
-	if (SvFAKE(sv) && !isGV_with_GP(sv)) {
+	if (SvIsCOW(sv)) {
 	    const char * const pvx = SvPVX_const(sv);
 	    const STRLEN len = SvCUR(sv);
 	    SvFAKE_off(sv);