# Try cwd and $ibase, then explicit -I paths.
$done = 0;
- foreach $path (".", $ibase, @ipath) {
- open($inf, "<" . $path . "/" . $file) and ($done = 1, last);
+ foreach $path ("", $ibase, @ipath) {
+ $mypath = $file;
+ $mypath = $path . "/" . $mypath if ($path ne "");
+ open($inf, "<" . $mypath) and ($done = 1, last);
}
die "cannot find $file" if !$done;
next;