hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Same performance improvement for apppath as for preppath.

This commit is contained in:
hjp 2007-03-05 18:18:15 +00:00
parent 69187e640a
commit 7949fda3ba
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pathtools/apppath.pl
View File

@ -38,7 +38,6 @@ Peter J. Holzer <hjp@hjp.at>.
use strict; use strict;
use Getopt::Long; use Getopt::Long;
use Pod::Usage;
my $check; my $check;
my $debug; my $debug;
@ -46,7 +45,11 @@ my $var = 'PATH';
GetOptions("check" => \$check, GetOptions("check" => \$check,
"debug" => \$debug, "debug" => \$debug,
"var=s" => \$var, "var=s" => \$var,
) or pod2usage(2); ) or do {
require Pod::Usage;
import Pod::Usage;
pod2usage(2);
};
my $path = $ENV{$var} || ''; my $path = $ENV{$var} || '';
my @path = split(/:/, $path); my @path = split(/:/, $path);