summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2015-04-29 13:06:13 +0000
committerNorbert Preining <preining@logic.at>2015-04-29 13:06:13 +0000
commit5d38a28f05a86805a3ed019e1f694cf8c40ad114 (patch)
tree0a223d9c8fe90b52fd75de59ef2e4bf36c7d52bf /Master
parentb3f93df630169bc8ee5d894dcfdcb5f5f24ef331 (diff)
try to work around the + error Staszek found
git-svn-id: svn://tug.org/texlive/trunk@37115 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgrgui.pl22
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++;
}
}