diff options
| author | dLux <dlux@spam.sch.bme.hu> | 2001-05-27 18:14:26 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-28 13:26:25 +0000 |
| commit | 8d5464a9414375d879690bea0e51f7fdfcb0f619 (patch) | |
| tree | 3f12315aedada9fd1c4f4f71e0b330e126feecf7 /lib | |
| parent | cf4a30caa768a87825eb803c6f442667207dad43 (diff) | |
| download | perl-8d5464a9414375d879690bea0e51f7fdfcb0f619.tar.gz | |
[ID 20010528.001] use autouse 'URI::Escape' => qw(URI::Escape::uri_escape) failed
Message-Id: <E1541JK-0000YC-00@dl.sch.bme.hu>
p4raw-id: //depot/perl@10243
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/autouse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/autouse.pm b/lib/autouse.pm index 5e4f30f649..7fb318be1c 100644 --- a/lib/autouse.pm +++ b/lib/autouse.pm @@ -39,7 +39,7 @@ sub import { my $closure_import_func = $func; # Full name my $closure_func = $func; # Name inside package - my $index = index($func, '::'); + my $index = rindex($func, '::'); if ($index == -1) { $closure_import_func = "${callpkg}::$func"; } else { |