summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-tlpdb
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-05-28 04:45:20 +0000
committerNorbert Preining <preining@logic.at>2010-05-28 04:45:20 +0000
commit1bd81b44a6b26304c3d60b2c06c5f3d35c2d75cd (patch)
tree6b839336d2976e54d61ed5216523feb262488c89 /Master/tlpkg/bin/tl-update-tlpdb
parent96d9802e6ff0243d09b7acfeb7cfc05983802850 (diff)
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
Diffstat (limited to 'Master/tlpkg/bin/tl-update-tlpdb')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-tlpdb7
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);