From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 17 Jul 1999 20:39:08 +0000 (+0000)
Subject: tiny bug in vars.pm (from John Dlugosz)
X-Git-Tag: accepted/trunk/20130322.191538~36254
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=014aafb8a06f901623bd13c6c881fb238a5469d1;p=platform%2Fupstream%2Fperl.git

tiny bug in vars.pm (from John Dlugosz)

p4raw-id: //depot/perl@3686
---

diff --git a/lib/vars.pm b/lib/vars.pm
index 334af96..ca2a08d 100644
--- 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;