Message-Id: <
200109061836.TAA08747@tempest.npl.co.uk>
p4raw-id: //depot/perl@11923
my($dir);
use Cwd qw(cwd abs_path);
my $pwd = cwd();
- local @INC = map eval {abs_path($_)} || $_, @INC;
+ local @INC = map eval {abs_path($_) if -e} || $_, @INC;
foreach $dir (@{$self->{DIR}}){
my($abs) = $self->catdir($pwd,$dir);