change#4327 was inefficient

[p5sagit/p5-mst-13.2.git] / lib / lib.pm

diff --git a/lib/lib.pm b/lib/lib.pm
index ea3ea5e..d35510d 100644 (file)
--- a/lib/lib.pm
+++ b/lib/lib.pm
@@ -28,9 +28,11 @@ sub import {
            unshift(@INC, "$_/$archname")    if -d "$_/$archname/auto";
            unshift(@INC, "$_/$archname/$]") if -d "$_/$archname/$]/auto";
        }
-       # remove trailing duplicates
-       @INC = grep { ++$names{$_} == 1 } @INC;
     }
+
+    # remove trailing duplicates
+    @INC = grep { ++$names{$_} == 1 } @INC;
+    return;
 }
 
 
@@ -45,6 +47,7 @@ sub unimport {
 
     # Remove ALL instances of each named directory.
     @INC = grep { !exists $names{$_} } @INC;
+    return;
 }
 
 1;