[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

diff --git a/lib/autouse.pm b/lib/autouse.pm
index 5e4f30f..7fb318b 100644 (file)
--- 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 {