Undo Tim's tainting patch from beta1h.

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

diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm
index 766de1e..2082a28 100644 (file)
--- a/lib/AutoLoader.pm
+++ b/lib/AutoLoader.pm
@@ -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 ($@) {