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.pm | |
| 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.pm')
| -rw-r--r-- | lib/charnames.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 23c53b7b19..020ab7ce61 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -2,7 +2,7 @@ package charnames; use strict; use warnings; use File::Spec; -our $VERSION = '1.19'; +our $VERSION = '1.21'; use bytes (); # for $bytes::hint_bits @@ -803,7 +803,7 @@ sub import # as tested for in # lookup_names $^H{charnames_short} = delete $h{':short'} || 0; - my @scripts = map uc, keys %h; + my @scripts = map { uc quotemeta } keys %h; ## ## If utf8? warnings are enabled, and some scripts were given, |