--- autouse.pm.old	Thu Jun 14 12:08:05 2001
+++ autouse.pm	Thu Jun 14 12:08:11 2001
@@ -39,7 +39,7 @@
 
 	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 {