Avoid creating GV with NULL name when vivifying nameless scalars.

[p5sagit/p5-mst-13.2.git] / lib / vars.pm

diff --git a/lib/vars.pm b/lib/vars.pm
index 334af96..ca2a08d 100644 (file)
--- a/lib/vars.pm
+++ b/lib/vars.pm
@@ -14,7 +14,7 @@ sub import {
     my ($pack, @imports, $sym, $ch) = @_;
     foreach $sym (@imports) {
         ($ch, $sym) = unpack('a1a*', $sym);
-       if ($sym =~ tr/A-Za-Z_0-9//c) {
+       if ($sym =~ tr/A-Za-z_0-9//c) {
            # time for a more-detailed check-up
            if ($sym =~ /::/) {
                require Carp;