From 1bd81b44a6b26304c3d60b2c06c5f3d35c2d75cd Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 28 May 2010 04:45:20 +0000 Subject: 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 --- Master/tlpkg/bin/tl-update-tlpdb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/bin/tl-update-tlpdb') 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); -- cgit v1.2.3