diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-05 03:02:28 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-05 03:02:28 +0000 |
| commit | 7c366566ba7206da11ab98d461cf0d02096773d4 (patch) | |
| tree | 4d134337e02f0fba237256b77ce736b0cf467a2b /lib/AutoLoader.pm | |
| parent | fcbdbaa8f122796fcc7f463951ee05e814c042e2 (diff) | |
| download | perl-7c366566ba7206da11ab98d461cf0d02096773d4.tar.gz | |
Undo Tim's tainting patch from beta1h.
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index 766de1e894..2082a280d0 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 ($@) { |