diff options
| -rw-r--r-- | lib/AutoLoader.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index ea19e502a0..766de1e894 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -20,7 +20,8 @@ autoloaded from F<auto/$AUTOLOAD.al>. See L<perlsub/"Autoloading">. =cut AUTOLOAD { - my $name = "auto/$AUTOLOAD.al"; + $AUTOLOAD =~ /([\w:]+)/; # avoid taint problems for eval require $name + my $name = "auto/$1.al"; $name =~ s#::#/#g; eval {require $name}; if ($@) { @@ -41,6 +42,7 @@ AUTOLOAD { croak $@; } } + $DB::sub = $AUTOLOAD; # Now debugger know where we are. goto &$AUTOLOAD; } |