diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2015-08-11 09:05:13 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2015-08-11 09:05:13 +0000 |
commit | 1ab591e48c967552295cba91d4b1c0513e39ddf5 (patch) | |
tree | e7a14c1296dc2a529facb830a1d6afea67eac590 /Master/texmf-dist | |
parent | 700591ff18ff6c18204966850312f0d7053fc7d8 (diff) |
scripts/xindy: Update xindy.pl
git-svn-id: svn://tug.org/texlive/trunk@38098 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-x | Master/texmf-dist/scripts/xindy/xindy.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/xindy/xindy.pl b/Master/texmf-dist/scripts/xindy/xindy.pl index dc5cada7810..7da9e131499 100755 --- a/Master/texmf-dist/scripts/xindy/xindy.pl +++ b/Master/texmf-dist/scripts/xindy/xindy.pl @@ -353,6 +353,7 @@ our $VERSION = sprintf "%d.%02d", q$Revision: 1.18 $ =~ /: (\d+)\.(\d+)/ ; use Cwd; use File::Basename; +use File::Glob qw(:bsd_glob); use File::Spec; use File::Temp qw(tempfile tmpnam); use Getopt::Long qw(:config bundling); @@ -773,9 +774,8 @@ sub xindy_expression () { # "latin", "cp", "iso8859", "ascii", or "utf8". @codepages = qw(latin cp iso8859 ascii utf8) unless @codepages; my @styles; - my $quotified_lang_dir = quotify($lang_dir); foreach my $cp ( @codepages ) { - @styles = glob("$quotified_lang_dir/$variant$cp*-lang.xdy"); + @styles = bsd_glob("$lang_dir/$variant$cp*-lang.xdy"); last if @styles; } unless ( @styles ) { |