diff options
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl index 5c1e7ad6042..347c7d5a8ff 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl @@ -884,18 +884,19 @@ sub update_grid { } } } + +sub maybe_strip_last_plus { + my $v = shift; + if ($v =~ m/\+$/) { + chop($v); + # just for comparison add one to the version of there is a "+" + $v++; + } + return $v; +} sub MatchesFilters { my $p = shift; - sub maybe_strip_last_plus { - my $v = shift; - if ($v =~ m/\+$/) { - chop($v); - # just for comparison add one to the version of there is a "+" - $v++; - } - return $v; - } # we have to take care since strings in revision numbers on the remote # and might contain "+" indicating sub-package updates # status @@ -2236,7 +2237,8 @@ sub update_list_remote { next if member($p, @critical); if (defined($Packages{$p}{'localrevision'}) && defined($Packages{$p}{'remoterevision'}) && - $Packages{$p}{'localrevision'} < $Packages{$p}{'remoterevision'}) { + $Packages{$p}{'localrevision'} < + maybe_strip_last_plus($Packages{$p}{'remoterevision'})) { $min_action++; } } |