try to work around the + error Staszek found

git-svn-id: svn://tug.org/texlive/trunk@37115 c570f23f-e606-0410-a88d-b1316a301751

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++;
       }
     }