summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-compare-tlpdbs
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-09-10 00:43:50 +0000
committerNorbert Preining <preining@logic.at>2009-09-10 00:43:50 +0000
commit4d55be359fee3161a8c6d21e3ac09d42073100c5 (patch)
treea0913354169359627be9ba1e1d1b9fd1ccc0342f /Master/tlpkg/bin/tl-compare-tlpdbs
parent953682564074001d5d88a5efa4c1b9eb0fb0d0a7 (diff)
make tl-compare-tlpdb return != 0 on error, and == 0 on success
git-svn-id: svn://tug.org/texlive/trunk@15201 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-compare-tlpdbs')
-rwxr-xr-xMaster/tlpkg/bin/tl-compare-tlpdbs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-compare-tlpdbs b/Master/tlpkg/bin/tl-compare-tlpdbs
index 2969545aca1..dd4104be181 100755
--- a/Master/tlpkg/bin/tl-compare-tlpdbs
+++ b/Master/tlpkg/bin/tl-compare-tlpdbs
@@ -127,18 +127,23 @@ sub main
}
}
+ my $ret = 0;
+
if (@revision_differ) {
+ $ret = 1;
print "packages with revision discrepancy:\n";
for my $p (@revision_differ) {
print "$p";
}
}
for my $pkg (keys %filedifferrors) {
+ $ret = 1;
print "file differences in $pkg:\n";
for my $l (@{$filedifferrors{$pkg}}) {
print " $l\n";
}
}
+ return($ret);
}