fix tl-update-tlpdb to use parent's tlpsrc for fixing revision if

a .ARCH package has decreased in rev


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

1 files changed, 6 insertions, 1 deletions

diff --git a/Master/tlpkg/bin/tl-update-tlpdb b/Master/tlpkg/bin/tl-update-tlpdb
index ba83d0ca7e6..dc0b5c4e444 100755
--- a/Master/tlpkg/bin/tl-update-tlpdb
+++ b/Master/tlpkg/bin/tl-update-tlpdb
@@ -203,9 +203,14 @@ sub compare_and_fix_tlpdbs
   for my $p (keys %packages_that_need_fixup) {
     tlwarn("$progname: package $p has different files but same/decreasing revision number\n");
     if ($opt_fix_reverse_revisions) {
+      my $fixp = $p;
+      if ($p =~ m/^([^.]+)\.([^.]+)$/) {
+        # that is a .ARCH package, we want to fix up the original tlpsrc
+        $fixp = $1;
+      }
       tlwarn("$progname: trying to fix it by running:\n");
       my $time = time();
-      my $cmd = "svn propset texlive:force_incr_after_delete $time $opt_master/tlpkg/tlpsrc/$p.tlpsrc";
+      my $cmd = "svn propset texlive:force_incr_after_delete $time $opt_master/tlpkg/tlpsrc/$fixp.tlpsrc";
       $commitit = 1;
       tlwarn("  $cmd\n");
       TeXLive::TLUtils::xsystem($cmd);