- 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".