utf8.c: Use OP_DESC instead of passing string.

OP_DESC is simpler and more general.

1 files changed, 6 insertions, 6 deletions

diff --git a/utf8.c b/utf8.c
index 628435d199..e1837627dc 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1879,7 +1879,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp,
 }
 
 STATIC UV
-S_check_locale_boundary_crossing(pTHX_ const char * const func_name, const U8* const p, const UV result, U8* const ustrp, STRLEN *lenp)
+S_check_locale_boundary_crossing(pTHX_ const U8* const p, const UV result, U8* const ustrp, STRLEN *lenp)
 {
     /* This is called when changing the case of a utf8-encoded character above
      * the Latin1 range, and the operation is in a non-UTF-8 locale.  If the
@@ -1927,7 +1927,7 @@ bad_crossing:
     Perl_ck_warner(aTHX_ packWARN(WARN_LOCALE),
                            "Can't do %s(\"\\x{%"UVXf"}\") on non-UTF-8 locale; "
                            "resolved to \"\\x{%"UVXf"}\".",
-                           func_name,
+                           OP_DESC(PL_op),
                            original,
                            original);
     Copy(p, ustrp, *lenp, char);
@@ -1984,7 +1984,7 @@ Perl__to_utf8_upper_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, bool flags
 	result = CALL_UPPER_CASE(p, ustrp, lenp);
 
 	if (flags) {
-	    result = check_locale_boundary_crossing("uc", p, result, ustrp, lenp);
+	    result = check_locale_boundary_crossing(p, result, ustrp, lenp);
 	}
 	return result;
     }
@@ -2055,7 +2055,7 @@ Perl__to_utf8_title_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, bool flags
 	result = CALL_TITLE_CASE(p, ustrp, lenp);
 
 	if (flags) {
-	    result = check_locale_boundary_crossing("ucfirst", p, result, ustrp, lenp);
+	    result = check_locale_boundary_crossing(p, result, ustrp, lenp);
 	}
 	return result;
     }
@@ -2125,7 +2125,7 @@ Perl__to_utf8_lower_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, bool flags
 	result = CALL_LOWER_CASE(p, ustrp, lenp);
 
 	if (flags) {
-	    result = check_locale_boundary_crossing("lc", p, result, ustrp, lenp);
+	    result = check_locale_boundary_crossing(p, result, ustrp, lenp);
 	}
 
 	return result;
@@ -2235,7 +2235,7 @@ Perl__to_utf8_fold_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, U8 flags)
                               "resolved to \"\\x{FB06}\".");
                 goto return_ligature_st;
             }
-	    return check_locale_boundary_crossing("fc", p, result, ustrp, lenp);
+	    return check_locale_boundary_crossing(p, result, ustrp, lenp);
 	}
 	else if (! (flags & FOLD_FLAGS_NOMIX_ASCII)) {
 	    return result;