From a041cdc9197695fc54129ef1af1e73abf632bb38 Mon Sep 17 00:00:00 2001
From: drow <drow@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 31 May 2006 15:48:05 +0000
Subject: [PATCH] * texi2pod.pl: Correct handling of absolute @include.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114271 138bc75d-0d04-0410-961f-82ee72b054a4
---
contrib/ChangeLog | 4 ++++
contrib/texi2pod.pl | 6 ++++--
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 1583757d1fb3..467313571817 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-31 Daniel Jacobowitz <dan@codesourcery.com>
+
+ * texi2pod.pl: Correct handling of absolute @include.
+
2006-05-02 Daniel Jacobowitz <dan@codesourcery.com>
* texi2pod.pl: Handle -I.
diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl
index 57d1d5bcd632..ed0d102a1a59 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;
--
GitLab