diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index e1b607bc5de..659c1e42609 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -1183,7 +1183,14 @@ sub load_taxonomy_datafile { tlwarn("tlmgr: taxonomy file $fpath not readable.\n"); return; } - my $foo = `cat $fpath`; + if (!open (TAXF, $fpath)) { + tlwarn("tlmgr: taxonomy file $fpath cannot be opened.\n"); + return; + } + # suck in the whole file contents + my @foo = <TAXF>; + close(TAXF); + my $foo = "@foo"; no strict "vars"; # the no strict "vars" is *ABSOLUTELY* necessary otherwise the file is # not evaluated, no idea why! |