From 85907e6fd46b83e1d30cee29a30e868e1c117f7f Mon Sep 17 00:00:00 2001
From: Felipe Gasper <felipe@felipegasper.com>
Date: Mon, 18 Jul 2022 08:54:07 -0400
Subject: Make 4-argument select() handle UTF8-flagged strings correctly.

Issue #19882
---
 pp_sys.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'pp_sys.c')

diff --git a/pp_sys.c b/pp_sys.c
index 09f6b8f8f8..f1026923a6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1165,7 +1165,10 @@ PP(pp_sselect)
                 Perl_croak_no_modify();
         }
         else if (SvIsCOW(sv)) sv_force_normal_flags(sv, 0);
-        if (!SvPOK(sv)) {
+        if (SvPOK(sv)) {
+            if (SvUTF8(sv)) sv_utf8_downgrade(sv, FALSE);
+        }
+        else {
             if (!SvPOKp(sv))
                 Perl_ck_warner(aTHX_ packWARN(WARN_MISC),
                                     "Non-string passed as bitmask");
-- 
cgit v1.2.1