diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf-dist/scripts/xindy/xindy.pl | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/xindy/xindy.pl b/Master/texmf-dist/scripts/xindy/xindy.pl index 7f7254aeadc..7b964f15277 100755 --- a/Master/texmf-dist/scripts/xindy/xindy.pl +++ b/Master/texmf-dist/scripts/xindy/xindy.pl @@ -803,12 +803,20 @@ sub xindy_expression () { push (@temp_files, $style_file); $style_file=quotify($style_file); foreach my $module ( @modules ) { - my $fnmodule=`kpsewhich -progname=xindy -format=othertext $module`; - if ($fnmodule) { - chomp($fnmodule); - print $sf "(require \"$fnmodule\")\n"; - } else { + if (($module =~ /\//) || ($module =~ /\\/)) { + # If $module contains directory separators, the module must be a system + # module, So we don't call kpsewhich. print $sf "(require \"$module\")\n"; + } else { + # Here we call kpsewhich to search for a module. Thus modules can be under + # (anytexmf)/xindy/modules/ + my $fnmodule=`kpsewhich -progname=xindy -format=othertext $module`; + if ($fnmodule) { + chomp($fnmodule); + print $sf "(require \"$fnmodule\")\n"; + } else { + print $sf "(require \"$module\")\n"; + } } } close ($sf); |