diff options
| author | Norbert Preining <preining@logic.at> | 2017-11-09 06:27:10 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2017-11-09 06:27:10 +0000 |
| commit | f8552d8b2b20933692906bd10a12b89a0915270a (patch) | |
| tree | a5408901f8d0e1aa5f1b4443188eb222ac0c4949 | |
| parent | fc71577b5ce89b3508931a19ebf785627b6b11f7 (diff) | |
fix wrongly reused reference to json backup object
git-svn-id: svn://tug.org/texlive/trunk@45730 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 0e0e472c2c9..ad31d8c9769 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1823,10 +1823,10 @@ sub action_restore { my $mode = shift; my %revs = @_; my @rs = sort {$b <=> $a} (keys %revs); - my %jsonkeys; - $jsonkeys{'name'} = $p; my @outarr; for my $rs (@rs) { + my %jsonkeys; + $jsonkeys{'name'} = $p; my $dstr; if ($revs{$rs} == -1) { $dstr = "unknown"; |