diff options
Diffstat (limited to 'Master/tlpkg')
-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); } |