[6781] check top_srcdir defined

[Gavin D. Smith]

Revision: 6781
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6781
Author:   gavin
Date:     2015-11-14 17:55:20 +0000 (Sat, 14 Nov 2015)
Log Message:
-----------
check top_srcdir defined

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/texi2any.pl

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2015-11-14 10:58:50 UTC (rev 6780)
+++ trunk/ChangeLog     2015-11-14 17:55:20 UTC (rev 6781)
@@ -1,5 +1,10 @@
-2015-11-12  Gavin Smith  <address@hidden>
+2015-11-14  Gavin Smith  <address@hidden>
 
+       * tp/texi2any.pl (BEGIN): Check if top_srcdir environment 
+       variable is defined.
+
+2015-11-14  Gavin Smith  <address@hidden>
+
        * configure.ac: Use _AC_OUTPUT_SUBDIRS macro inside a subshell.
 
 2015-11-12  Gavin Smith  <address@hidden>

Modified: trunk/tp/texi2any.pl
===================================================================
--- trunk/tp/texi2any.pl        2015-11-14 10:58:50 UTC (rev 6780)
+++ trunk/tp/texi2any.pl        2015-11-14 17:55:20 UTC (rev 6781)
@@ -69,8 +69,10 @@
     }
     unshift @INC, File::Spec->catdir($ENV{'top_builddir'}, 'tp');
 
-    my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
-    unshift @INC, $lib_dir;
+    if (defined($ENV{'top_srcdir'})) {
+      my $lib_dir = File::Spec->catdir($ENV{'top_srcdir'}, 'tp');
+      unshift @INC, $lib_dir;
+    }
 
     require Texinfo::ModulePath;
     Texinfo::ModulePath::init();