eval q{ use lib qw(. lib); 1; } or die;
# don't add if superuser
- if ($< && $>) { # don't be looking too hard now!
+ if ($< && $> && -f "blib") { # don't be looking too hard now!
eval q{ use blib; 1 };
warn $@ if $@ && $opt_v;
}
}
else {
foreach my $pager (@pagers) {
- last if system("$pager $tmp") == 0;
+ last if system("$pager \"$tmp\"") == 0;
}
}
}
next;
}
print STDERR "Searching for $_\n" if $opt_v;
- # We must look both in @INC for library modules and in PATH
+ # We must look both in @INC for library modules and in $bindir
# for executables, like h2xs or perldoc itself.
- my @searchdirs = @INC;
+ my @searchdirs = ($bindir, @INC);
if ($opt_F) {
next unless -r;
push @found, $_ if $opt_m or containspod($_);