[PATCH] texi2html: Texi2html not to search . by default

Hi again,

this is a clean patch against latest sources at
:pserver:[email protected]:/cvs

I had to redo the earlier equivalent patch against
xemacsweb/Texi2html, because that patch did not apply to above
sources.

I will attempt to commit now.

Best regards,

Adrian

ChangeLog addition:

2001-11-19  Adrian Aichner  <[email protected]>

	* texi2html.init: Initialize T2H_INCLUDE_DIRS to the empty list.
	* texi2html.pl (LocateIncludeFile): Don't look in ., unless it's
	part of T2H_INCLUDE_DIRS.


texi2html Patch (cvs -f -z3 -q diff -u):

<lines deleted by Adrian>
Index: texi2html.init
===================================================================
RCS file: /cvs/texi2html/texi2html.init,v
retrieving revision 1.6
diff -u -r1.6 texi2html.init
--- texi2html.init	18 Sep 2001 22:15:21 -0000	1.6
+++ texi2html.init	21 Nov 2001 09:10:17 -0000
@@ -116,7 +116,9 @@
 # -I
 # list directories where @include files are searched for (besides the
 # directory of the doc file) additional '-I' args add to this list
-my @T2H_INCLUDE_DIRS = (".");
+# APA: Don't implicitely search ., to conform with the docs!
+# my @T2H_INCLUDE_DIRS = (".");
+my @T2H_INCLUDE_DIRS = ();
 $T2H_OPTIONS -> {I} =
 {
  type => '=s',
Index: texi2html.pl
===================================================================
RCS file: /cvs/texi2html/texi2html.pl,v
retrieving revision 1.5
diff -u -r1.5 texi2html.pl
--- texi2html.pl	19 Sep 2001 21:12:27 -0000	1.5
+++ texi2html.pl	21 Nov 2001 09:10:20 -0000
@@ -3929,7 +3929,8 @@
     my $file = shift;
     my $dir;
 
-    return $file if (-e $file && -r $file);
+    # APA: Don't implicitely search ., to conform with the docs!
+    # return $file if (-e $file && -r $file);
     foreach $dir (@T2H_INCLUDE_DIRS)
     {
         return "$dir/$file" if (-e "$dir/$file" && -r "$dir/$file");

-- 
Adrian Aichner
 mailto:[email protected]
 http://www.xemacs.org/