add warning for negative argument to chr() [perl #83048]

1 files changed, 2 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 6936b4f796..1fcc885442 100644
--- a/pp.c
+++ b/pp.c
@@ -3262,7 +3262,8 @@ PP(pp_chr)
 	if (IN_BYTES) {
 	    value = POPu; /* chr(-1) eq chr(0xff), etc. */
 	} else {
-	    (void) POPs; /* Ignore the argument value. */
+	    SV *top = POPs;
+	    Perl_ck_warner(aTHX_ packWARN(WARN_UTF8), "Invalid negative number (%"SVf") in chr", top);
 	    value = UNICODE_REPLACEMENT;
 	}
     } else {