Undo Tim's tainting patch from beta1h.
Perl 5 Porters [Fri, 5 Jan 1996 03:02:28 +0000 (03:02 +0000)]
lib/AutoLoader.pm

index 766de1e..2082a28 100644 (file)
@@ -20,8 +20,7 @@ autoloaded from F<auto/$AUTOLOAD.al>.  See L<perlsub/"Autoloading">.
 =cut
 
 AUTOLOAD {
-    $AUTOLOAD =~ /([\w:]+)/;   # avoid taint problems for eval require $name
-    my $name = "auto/$1.al";
+    my $name = "auto/$AUTOLOAD.al";
     $name =~ s#::#/#g;
     eval {require $name};
     if ($@) {