From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Fri, 5 Jan 1996 03:02:28 +0000 (+0000)
Subject: Undo Tim's tainting patch from beta1h.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c366566ba7206da11ab98d461cf0d02096773d4;p=p5sagit%2Fp5-mst-13.2.git

Undo Tim's tainting patch from beta1h.
---

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