debug " updates ...";
while (<STDIN>) {
chomp or die;
- debug " updates| $_";
+ debug " upd.| $_";
m/^(\S+) (\S+) (\S+)$/ or die "$_ ?";
my ($old, $sha1, $refname) = ($1, $2, $3);
if ($refname =~ m{^refs/tags/(?=debian/)}) {
die unless $1 eq $package;
$version = $2;
- die unless $3 eq $suite;
+ die "$3 != $suite " unless $3 eq $suite;
for (;;) {
print PT or die $!;