diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-11 16:55:48 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-11 16:55:48 +0000 |
| commit | abef537ad8d3230927d259211d4c0d673d28d7b7 (patch) | |
| tree | 961a87049c0700a6cf0bb507f5846817884ee358 /lib/lib.pm | |
| parent | e8cd7eae0498ecc1fd3801fe31604cd970a11dd7 (diff) | |
| download | perl-abef537ad8d3230927d259211d4c0d673d28d7b7.tar.gz | |
change#4327 was inefficient
p4raw-link: @4327 on //depot/perl: aeb5d71d10f95df991fb160dc1adaa06bf9515f4
p4raw-id: //depot/perl@4343
Diffstat (limited to 'lib/lib.pm')
| -rw-r--r-- | lib/lib.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/lib.pm b/lib/lib.pm index ea3ea5ef73..d35510df86 100644 --- 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; |