diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-08-02 16:45:29 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-08-13 14:36:20 +0200 |
| commit | 03f9528566237f9170dc0467302f5fa817ca7c9f (patch) | |
| tree | 91786449c84bdc8d86be4c2a3901b7230c6706ca /t/lib | |
| parent | e4b4d0cc90ea801f118be8e27b7e78e05b398467 (diff) | |
| download | perl-03f9528566237f9170dc0467302f5fa817ca7c9f.tar.gz | |
use charnames (); fails
If "use charnames ()" are the only usages of this pragma in a program,
it fails due to the pragma's import method not getting called. This
fixes that.
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/charnames/alias | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/charnames/alias b/t/lib/charnames/alias index 07bc68f80e..56b294edba 100644 --- a/t/lib/charnames/alias +++ b/t/lib/charnames/alias @@ -288,3 +288,13 @@ use charnames ":alias" => ":xyzzy"; EXPECT OPTIONS regex $ +######## +# charnames with no import still works for runtime functions +use warnings; +no warnings 'void'; +use charnames (); +charnames::vianame('SPACE'); +charnames::viacode(0x41); +EXPECT +OPTIONS regex +$ |