diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-10-24 09:30:33 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-10-24 10:45:25 -0600 |
| commit | 2644e1b79e9da90a5f25c0c63fcbc5c65fb35c13 (patch) | |
| tree | 4c02cbffff5da30d33c9df0354a8eb2bd292be8f | |
| parent | 3918902dcbb0a2805ef18374c3ce6697784263c6 (diff) | |
| download | perl-2644e1b79e9da90a5f25c0c63fcbc5c65fb35c13.tar.gz | |
charnames.t: Fix erroneous interpolation of \N{}
This is supposed to print as-is, not interpolate.
| -rw-r--r-- | lib/charnames.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index ff94a82d26..a158c9aeb1 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(.*); |