3 use Test::More tests => 2;
5 use File::Temp qw(tempdir);
8 my $dir = tempdir('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), CLEANUP => 1);
16 $perl5lib{$_}-- for split /:/, $ENV{PERL5LIB};
18 local::lib->import($dir);
19 local::lib->import($dir);
22 $perl5lib{$_}++ for split /:/, $ENV{PERL5LIB};
24 ok ! (grep { $inc{$_} > 1 } keys %inc), '@INC entries not duplicated';
25 ok ! (grep { $perl5lib{$_} > 1 } keys %perl5lib), 'ENV{PERL5LIB} entries not duplicated';