diff options
author | Norbert Preining <preining@logic.at> | 2009-09-10 00:43:50 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-09-10 00:43:50 +0000 |
commit | 4d55be359fee3161a8c6d21e3ac09d42073100c5 (patch) | |
tree | a0913354169359627be9ba1e1d1b9fd1ccc0342f /Master/tlpkg/bin/tl-compare-tlpdbs | |
parent | 953682564074001d5d88a5efa4c1b9eb0fb0d0a7 (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-x | Master/tlpkg/bin/tl-compare-tlpdbs | 5 |
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); } |