Skip to content

Commit 864e7fe

Browse files
committed
remove dependency on Env module
1 parent f0861e6 commit 864e7fe

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

lib/Perl/Dist/APPerl.pm

+1-2
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,6 @@ use Cwd qw(abs_path getcwd);
99
use Data::Dumper qw(Dumper);
1010
use File::Basename qw(basename dirname);
1111
use File::Copy qw(copy move cp);
12-
use Env qw(@PATH);
1312
use FindBin qw();
1413
use Getopt::Long qw(GetOptionsFromArray);
1514
Getopt::Long::Configure qw(gnu_getopt);
@@ -978,7 +977,7 @@ sub _find_zip {
978977
return 'zip';
979978
}
980979
else {
981-
foreach my $dir (@PATH) {
980+
foreach my $dir (split(':', $ENV{PATH})) {
982981
my $zippath = "$dir/zip.exe";
983982
return $zippath if(-f $zippath);
984983
}

0 commit comments

Comments
 (0)