From 7949fda3ba948c6bdcb424c40d62f620d64b643d Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Mon, 5 Mar 2007 18:18:15 +0000
Subject: [PATCH] Same performance improvement for apppath as for preppath.

---
 pathtools/apppath.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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