summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl23
1 files changed, 10 insertions, 13 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index a97dcc32c4d..fd5eddd1703 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1510,20 +1510,17 @@ sub action_restore {
my %revs = @_;
my @rs = sort {$b <=> $a} (keys %revs);
for my $rs (@rs) {
- my @rs = sort {$b <=> $a} (keys %revs);
- for my $rs (@rs) {
- my $dstr;
- if ($revs{$rs} == -1) {
- $dstr = "unknown";
- } else {
- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
- localtime($revs{$rs});
- # localtime returns dates starting from 1900, and the month is 0..11
- $dstr = sprintf "%04d-%02d-%02d %02d:%02d",
- $year+1900, $mon+1, $mday, $hour, $min;
- }
- print "$rs ($dstr) ";
+ my $dstr;
+ if ($revs{$rs} == -1) {
+ $dstr = "unknown";
+ } else {
+ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
+ localtime($revs{$rs});
+ # localtime returns dates starting from 1900, and the month is 0..11
+ $dstr = sprintf "%04d-%02d-%02d %02d:%02d",
+ $year+1900, $mon+1, $mday, $hour, $min;
}
+ print "$rs ($dstr) ";
}
}
# end sub