[PATCH (03|57)] Fwd: (bug in vars.pm)

[p5pRT]

Migrated from rt.perl.org#1001 (status was 'resolved')

Searchable as RT1001$

[p5pRT]

From [email protected]

Small patch included.

dgris

Inline Patch

--- lib/vars.pm.old	Wed Jul 14 17:35:40 1999
+++ lib/vars.pm	Wed Jul 14 17:36:09 1999
@@ -14,7 +14,7 @@
     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;

#End patch

--
Daniel Grisinger dgris@​moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@​[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@​[;;' 'Just Another Perl Hacker'