perl*: Fix handling of relative paths in @INC.
parent
5c6b1bb4a4
commit
18c28bb9a2
|
@ -2,6 +2,7 @@
|
|||
|
||||
use strict;
|
||||
use Config;
|
||||
use Cwd;
|
||||
use File::Spec::Functions;
|
||||
|
||||
my %seen;
|
||||
|
@ -47,8 +48,10 @@ sub print_modules_real {
|
|||
sub print_modules {
|
||||
my ($word) = @_;
|
||||
|
||||
my $origdir = getcwd;
|
||||
foreach my $directory (@INC) {
|
||||
print_modules_real(undef, $directory, $word);
|
||||
chdir $origdir;
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue