locale.c: Improve collation debugging output

This adds a special case for when the buffer is empty
Perl · May 6, 2023 · 99da3ef · 99da3ef
1 parent 5c1f838
commit 99da3ef
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/locale.c b/locale.c
@@ -8233,7 +8233,10 @@ S_print_collxfrm_input_and_return(pTHX_
                   get_displayable_string(s, e, is_utf8),
                   ((xbuf == NULL)
                    ? "(null)"
-                   : _byte_dump_string((U8 *) xbuf + COLLXFRM_HDR_LEN, xlen, 0)),
+                   : ((xlen == 0)
+                      ? "(empty)"
+                      : _byte_dump_string((U8 *) xbuf + COLLXFRM_HDR_LEN,
+                                          xlen, 0))),
                   xlen);
 }