dougm 01/04/02 00:37:37 Modified: lib/Apache Build.pm Log: a better which() Revision Changes Path 1.39 +3 -7 modperl-2.0/lib/Apache/Build.pm Index: Build.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v retrieving revision 1.38 retrieving revision 1.39 diff -u -r1.38 -r1.39 --- Build.pm 2001/03/28 00:28:59 1.38 +++ Build.pm 2001/04/02 07:37:36 1.39 @@ -5,6 +5,7 @@ use warnings; use Config; use Cwd (); +use File::Spec (); use ExtUtils::Embed (); use ModPerl::Code (); use ModPerl::BuildOptions (); @@ -66,14 +67,9 @@ } sub which { - my $name = shift; - - for (split ':', $ENV{PATH}) { - my $app = "$_/$name"; - return $app if -x $app; + foreach (map { File::Spec->catfile($_, $_[0]) } File::Spec->path) { + return $_ if -x; } - - return ''; } #--- Perl Config stuff ---
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm
- cvs commit: modperl-2.0/lib/Apache Build.pm dougm