Displaying 1 result from an estimated 1 matches for "rel2abs".
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 d...