texinfo/tp texi2any.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/02/21 22:36:16

Modified files:
        tp             : texi2any.pl 

Log message:
        If TEXINFO_DEV_SOURCE is defined and 0 do not do the .pl stuff.  Idea 
of Karl.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/texi2any.pl?cvsroot=texinfo&r1=1.118&r2=1.119

Patches:
Index: texi2any.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/texi2any.pl,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- texi2any.pl 20 Feb 2012 23:30:44 -0000      1.118
+++ texi2any.pl 21 Feb 2012 22:36:16 -0000      1.119
@@ -113,7 +113,8 @@
 
 my $srcdir = defined $ENV{'srcdir'} ? $ENV{'srcdir'} : dirname $0;
 my $libsrcdir = "$srcdir/maintain";
-if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
+if (($0 =~ /\.pl$/ and !(defined($ENV{'TEXINFO_DEV_SOURCE'}) 
+     and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
   unshift @INC, "$libsrcdir/lib/libintl-perl/lib";
 } elsif ('@USE_EXTERNAL_LIBINTL@' ne 'yes'
          and -d "$pkgdatadir/lib/libintl-perl/lib") {
@@ -133,7 +134,8 @@
 #my @search_locale_dirs = ("$datadir/locale", (map $_ . '/LocaleData', @INC),
 #  qw (/usr/share/locale /usr/local/share/locale));
 
-if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
+if (($0 =~ /\.pl$/ and !(defined($ENV{'TEXINFO_DEV_SOURCE'}) 
+     and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
   # in case of build from the source directory, out of source build, 
   # this helps to locate the locales.
   my $locales_dir_found = 0;
@@ -154,7 +156,8 @@
 
 Locale::Messages::bindtextdomain ($messages_textdomain, "$datadir/locale");
 
-if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
+if (($0 =~ /\.pl$/ and !(defined($ENV{'TEXINFO_DEV_SOURCE'}) 
+     and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
   unshift @INC, "$libsrcdir/lib/Unicode-EastAsianWidth/lib";
 } elsif ('@USE_EXTERNAL_EASTASIANWIDTH@' ne 'yes'
          and -d "$pkgdatadir/lib/Unicode-EastAsianWidth/lib") {
@@ -167,7 +170,8 @@
 }
 require Unicode::EastAsianWidth;
 
-if ($0 =~ /\.pl$/ or $ENV{'TEXINFO_DEV_SOURCE'}) {
+if (($0 =~ /\.pl$/ and !(defined($ENV{'TEXINFO_DEV_SOURCE'}) 
+     and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
   unshift @INC, "$libsrcdir/lib/Text-Unidecode/lib";
 } elsif ('@USE_EXTERNAL_UNIDECODE@' ne 'yes'
           and "$pkgdatadir/lib/Text-Unidecode/lib") {