return 0;
}
- open TAGL, "git for-each-ref '[r]efs/tags/*' |" or die $!;
- while (<TAGL>) {
- m#^(\w+) (\w+) (refs/tags/\S+)\s# or die "$_ ?";
- add_taint($1,$2,
- "tag $3 referred to this object in git tree but all".
+ git_for_each_ref('refs/tags', sub {
+ my ($objid,$objtype,$fullrefname,$tagname) = @_;
+ add_taint($objid,$objtype,
+ "tag $tagname referred to this object in git tree but all".
" previously pushed versions were found to have been".
" removed from NEW (ie, rejected) (or never arrived)");
- }
+ });
$?=0; $!=0; close TAGL or die "git for-each-ref $? $!";
return FRESHREPO;