APItest/t/utf8_setup.pl: Split function into two
authorKarl Williamson <khw@cpan.org>
Tue, 30 May 2017 02:58:32 +0000 (20:58 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:23 +0000 (21:14 -0600)
This function outputs a byte string as hex bytes.  A future commit will
want that output without surrounding quotes, so create a version that
doesn't have them.

ext/XS-APItest/t/utf8_setup.pl

index 7327575..2f676a3 100644 (file)
@@ -8,12 +8,14 @@
 
 sub isASCII { ord "A" == 65 }
 
-sub display_bytes {
+sub display_bytes_no_quotes {
     use bytes;
     my $string = shift;
-    return   '"'
-           . join("", map { sprintf("\\x%02x", ord $_) } split "", $string)
-           . '"';
+    return join("", map { sprintf("\\x%02x", ord $_) } split "", $string)
+}
+
+sub display_bytes {
+    return   '"' . display_bytes_no_quotes(shift) . '"';
 }
 
 sub output_warnings(@) {