summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Jacobowitz <dan@debian.org>2006-05-31 15:52:11 +0000
committerDaniel Jacobowitz <dan@debian.org>2006-05-31 15:52:11 +0000
commitf4ee0fc51a418d0db54247cdd4c4d14ae9a59e4f (patch)
tree85532d557c0536dbdca4d371bbf9af1a5f875d57
parentd6a9550597265ada00119708130363b9fc0150cb (diff)
downloadbinutils-redhat-gdb_6_5-branch.tar.gz
* texi2pod.pl: Correct handling of absolute @include.gdb_6_5-branch
-rw-r--r--etc/ChangeLog4
-rw-r--r--etc/texi2pod.pl6
2 files changed, 8 insertions, 2 deletions
diff --git a/etc/ChangeLog b/etc/ChangeLog
index 09d002f245..a5959c70a7 100644
--- a/etc/ChangeLog
+++ b/etc/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/etc/texi2pod.pl b/etc/texi2pod.pl
index 57d1d5bcd6..ed0d102a1a 100644
--- a/etc/texi2pod.pl
+++ b/etc/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;