From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 9 May 1999 01:42:06 +0000 (+0000)
Subject: import list propagation busted (pointed out by Ton Hospel
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4fd801333dcf63040f0a6e1abf20f2d92fe1737a;p=p5sagit%2Fp5-mst-13.2.git

import list propagation busted (pointed out by Ton Hospel
<thospel@mail.dma.be>)

p4raw-id: //depot/perl@3342
---

diff --git a/lib/autouse.pm b/lib/autouse.pm
index 4445c6c..179c382 100644
--- a/lib/autouse.pm
+++ b/lib/autouse.pm
@@ -3,7 +3,7 @@ package autouse;
 #use strict;		# debugging only
 use 5.003_90;		# ->can, for my $var
 
-$autouse::VERSION = '1.01';
+$autouse::VERSION = '1.02';
 
 $autouse::DEBUG ||= 0;
 
@@ -25,7 +25,7 @@ sub import {
 	vet_import $module;
 	local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
 	# $Exporter::Verbose = 1;
-	return $module->import(map { (my $f = $_) =~ s/\(.*?\)$// } @_);
+	return $module->import(map { (my $f = $_) =~ s/\(.*?\)$//; $f } @_);
     }
 
     # It is not loaded: need to do real work.