uvoffuni_to_utf8_flags_msgs(): Return proper bit

More rigorous testing, yet to be committed, showed that this was returning
the wrong bit in some circumstances.  It is supposed to return the bit
corresponding to the most restrictive flag that is passed as input to
the function

Author: khwilliamson

utf8.c

@@ -234,7 +234,9 @@ Perl_uvoffuni_to_utf8_flags_msgs(pTHX_ U8 *d, UV input_uv, UV flags, HV** msgs)
             if (msgs) {
                 *msgs = new_msg_hv(Perl_form(aTHX_ format, input_uv),
                                    category,
-                                   UNICODE_GOT_PERL_EXTENDED);
+                                   (flags & UNICODE_WARN_PERL_EXTENDED)
+                                   ? UNICODE_GOT_PERL_EXTENDED
+                                   : UNICODE_GOT_SUPER);
             }
             else {
                 Perl_ck_warner_d(aTHX_ category, format, input_uv);