search for: rel2ab

Displaying 1 result from an estimated 1 matches for "rel2ab".

Did you mean: reltab
2006 Jan 25
1
Don't hardcode paths in klcc
...2006-01-25 21:30:48.000000000 +0000 +++ klibc-1.1.16/klcc/makeklcc.pl 2006-01-25 21:39:59.000000000 +0000 @@ -9,23 +9,6 @@ ($klccin, $klibcconf, $perlpath) = @ARGV; -sub pathsearch($) { - my($file) = @_; - my(@path); - my($p,$pp); - - if ( $file =~ /\// ) { - return File::Spec->rel2abs($file); - } - - foreach $p ( split(/\:/, $ENV{'PATH'}) ) { - $pp = File::Spec->rel2abs(File::Spec->catpath(undef, $p, $file)); - return $pp if ( -x $pp ); - } - - return undef; -} - print "#!${perlpath}\n"; open(KLIBCCONF, '<', $klibcconf) or...