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