From: dLux <dlux@spam.sch.bme.hu>
Date: Sun, 27 May 2001 16:14:26 +0000 (+0200)
Subject: [ID 20010528.001] use autouse 'URI::Escape' => qw(URI::Escape::uri_escape) failed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d5464a9414375d879690bea0e51f7fdfcb0f619;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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 {