From 2644e1b79e9da90a5f25c0c63fcbc5c65fb35c13 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 24 Oct 2012 09:30:33 -0600 Subject: [PATCH] charnames.t: Fix erroneous interpolation of \N{} This is supposed to print as-is, not interpolate. --- lib/charnames.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/charnames.t b/lib/charnames.t index ff94a82..a158c9a 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -776,7 +776,7 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}", 'V $res .= '-' . ($^H{73174} // ""); $res .= '-2' if ":" =~ /\N{COLON}/; $res .= '-3' if ":" =~ /\N{COLON}/i; - is($res, "foo-foo-1--2-3", "Verify %^H doesn't get reset by \N{...}"); + is($res, "foo-foo-1--2-3", "Verify %^H doesn't get reset by \\N{...}"); } { use charnames qw(.*); -- 2.7.4