Fix typo in patch #22188

[perl5.git] / pp.c

diff --git a/pp.c b/pp.c
index 8898735..6f3703d 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2417,6 +2417,7 @@ PP(pp_complement)
              *result = '\0';
              result -= nchar;
              sv_setpvn(TARG, (char*)result, nchar);
+             SvUTF8_off(TARG);
          }
          Safefree(result);
          SETs(TARG);