Fix to handle no-op escapes such as \\, broken by unicode fix

[scpubgit/HTML-String.git] / xt / tt.t

diff --git a/xt/tt.t b/xt/tt.t
index 151152e..a370a1a 100644 (file)
--- a/xt/tt.t
+++ b/xt/tt.t
@@ -31,8 +31,8 @@ is(
 # Check we aren't nailed by https://rt.perl.org/rt3/Ticket/Display.html?id=49594
 
 is(
-    do_tt('<foo>"$bar"</foo>'."\n"),
-    '<foo>"$bar"</foo>'."\n"
+    do_tt('<foo>"$b\\ar"</foo>'."\n"),
+    '<foo>"$b\\ar"</foo>'."\n"
 );
 
 { # non-ASCII characters can also trigger the bug