[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp texi2any.pl
From: |
Patrice Dumas |
Subject: |
texinfo/tp texi2any.pl |
Date: |
Tue, 21 Feb 2012 22:36:16 +0000 |
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") {