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

Speedup by by 63 % (from 85 ms to 52 ms on a 3 GHz P4) for a typical 

usecase (prepend single directory to PATH with 12 directories with
checking) by loading Pod::Usage only if necessary.

This script is called quite frequently in my .zshrc, so performance is
important (maybe I should rewrite it in C?)
This commit is contained in:
hjp 2007-03-05 18:13:54 +00:00
parent 60f1952973
commit 69187e640a
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/preppath.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);