diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-06-15 14:32:14 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-06-15 14:34:02 -0600 |
commit | 363879a0952f77ca92caac0ce999916648a45173 (patch) | |
tree | d179bfdcd9d7acd6d516a4712542e0c9bd191f0e /lib/charnames.t | |
parent | 0d66b88d99cbe219f6c39408ee83f70759b609b3 (diff) | |
download | perl-363879a0952f77ca92caac0ce999916648a45173.tar.gz |
charnames: Quote metachars in script names
"use charnames qw(.*)" will match any script; it should match none.
Diffstat (limited to 'lib/charnames.t')
-rw-r--r-- | lib/charnames.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 443738a7cc..dc6487af9d 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -700,6 +700,10 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); is($res, "foo-foo-1--2-3"); } +{ use charnames qw(.*); + ok (! defined charnames::vianame("a"), "Verify that metachars in script names get quoted"); +} + { # Test scoping. Outer block sets up some things; inner blocks # override them, and then see if get restored. |