From 58aa673865ea7e8aaee4b242ff4885eac1ee1334 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Mon, 4 Nov 2019 22:27:39 -0700
Subject: Remove swashes from core

Also references to the term.
---
 doop.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'doop.c')

diff --git a/doop.c b/doop.c
index 3cb1354540..5ac79420b0 100644
--- a/doop.c
+++ b/doop.c
@@ -391,7 +391,7 @@ S_do_trans_invmap(pTHX_ SV * const sv, AV * const invmap)
     bool inplace = ! cBOOL(PL_op->op_private & OPpTRANS_GROWS);
     const UV* from_array = invlist_array(from_invlist);
     UV final_map;
-    bool out_is_utf8 = SvUTF8(sv);
+    bool out_is_utf8 = cBOOL(SvUTF8(sv));
     STRLEN s_len;
 
     PERL_ARGS_ASSERT_DO_TRANS_INVMAP;
-- 
cgit v1.2.1