--- toast 2004/12/27 03:25:41 1.371 +++ toast 2005/01/16 18:48:22 1.372 @@ -1387,12 +1387,14 @@ } } $result = abspath($^X) unless defined($result); + $result = abspath($result) unless $result =~ m!^/!; return $result if -x($result); # maybe it moved as a result of arm/disarm or something...? for(split(/:/, $ENV{"PATH"}), "/usr/bin", "/usr/local/bin", "/bin") { my($path) = path($_, "perl"); + $path = abspath($path) unless $path =~ m!^/!; return $path if -x($path); } return "/usr/bin/perl";