diff options
author | Karl Williamson <khw@cpan.org> | 2015-12-14 20:23:26 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-12-14 20:28:04 -0700 |
commit | 273b29a4563651754921c31131406bdba9175f46 (patch) | |
tree | c8f8738b42efca3a17c868b880bf06dc54ecb7c2 /lib/meta_notation.t | |
parent | 6908751beba250088d670895cd1f619a0d3193d4 (diff) | |
download | perl-273b29a4563651754921c31131406bdba9175f46.tar.gz |
lib/meta_notation: Fix so C1 controls are escaped
Prior to this commit the meta notation for C1 controls included raw C0
controls.
Diffstat (limited to 'lib/meta_notation.t')
-rw-r--r-- | lib/meta_notation.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/meta_notation.t b/lib/meta_notation.t index d89d50ca28..b687dbde17 100644 --- a/lib/meta_notation.t +++ b/lib/meta_notation.t @@ -15,9 +15,17 @@ if ($@) { } else { - is(_meta_notation("\007\010\011\c?Z\x{103}"), "^G^H^I^?Z\x{103}"); + is(_meta_notation("\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x0C"), + "^@^A^B^C^D^E^F^G^H^I^J^K^L"); + is(_meta_notation("\x0D\x0E\x0F\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19"), + "^M^N^O^P^Q^R^S^T^U^V^W^X^Y"); + is(_meta_notation("\x1A\x1B\x1C\x1D\x1E\x1F\c?"), + "^Z^[^\\^]^^^_^?"); + is(_meta_notation("09%AZaz\x{103}"), "09%AZaz\x{103}"); if ($::IS_ASCII || $::IS_ASCII) { + is(_meta_notation("\x7f\x80\x81\x82\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1"), + '^?M-^@M-^AM-^BM-^ZM-^[M-^\\M-^]M-^^M-^_M- M-!'); is(_meta_notation("\x{c1}\x{e2}"), 'M-AM-b'); is(_meta_notation("\x{df}"), 'M-_'); } |