diff options
| author | Daniel Jacobowitz <dan@codesourcery.com> | 2006-05-31 15:48:05 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <dan@codesourcery.com> | 2006-05-31 15:48:05 +0000 |
| commit | 1f14554ecbfe608030dc6e3a0a604ce327b9a22d (patch) | |
| tree | 9a67c316c5f529f90ced2ff04c699f8e85fad122 /contrib/texi2pod.pl | |
| parent | dedb84958a0a694e71e519a342cc948e3b009c56 (diff) | |
* texi2pod.pl: Correct handling of absolute @include.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@114271 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'contrib/texi2pod.pl')
| -rwxr-xr-x | contrib/texi2pod.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl index 57d1d5bcd63..ed0d102a1a5 100755 --- a/contrib/texi2pod.pl +++ b/contrib/texi2pod.pl @@ -239,8 +239,10 @@ while(<$inf>) { # 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; |