perl*: Fix handling of relative paths in @INC.
This commit is contained in:
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…
x
Reference in New Issue
Block a user