From d08ee620104bde3e12c53cc8b663c01803e3e6a2 Mon Sep 17 00:00:00 2001 From: Dominik Sauer Date: Sat, 12 Mar 2022 08:14:00 +0100 Subject: [PATCH] Properly escape 0x10 in XML --- lib/TAP/Harness/JUnit.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/TAP/Harness/JUnit.pm b/lib/TAP/Harness/JUnit.pm index 8498b42..11361ee 100644 --- a/lib/TAP/Harness/JUnit.pm +++ b/lib/TAP/Harness/JUnit.pm @@ -392,7 +392,7 @@ sub xmlsafe { return '' unless defined $s && length($s) > 0; - $s =~ s/([\x00|\x01|\x02|\x03|\x04|\x05|\x06|\x07|\x08|\x0B|\x0C|\x0E|\x0F|\x11|\x12|\x13|\x14|\x15|\x16|\x17|\x18|\x19|\x1A|\x1B|\x1C|\x1D|\x1E|\x1F])/ sprintf("<%0.2x>", ord($1)) /gex; + $s =~ s/([\x00|\x01|\x02|\x03|\x04|\x05|\x06|\x07|\x08|\x0B|\x0C|\x0E|\x0F|\x10|\x11|\x12|\x13|\x14|\x15|\x16|\x17|\x18|\x19|\x1A|\x1B|\x1C|\x1D|\x1E|\x1F])/ sprintf("<%0.2x>", ord($1)) /gex; return $s;