printdebug " updates ok.\n";
}
-sub parsetag_general ($$;$) {
- my ($mainfn, $dgititemfn, $need_distro) = @_;
- printdebug " parsetag...\n";
+sub readtag () {
+ printdebug " readtag...\n";
+
open PT, ">dgit-tmp/plaintext" or die $!;
open DS, ">dgit-tmp/plaintext.asc" or die $!;
open T, "-|", qw(git cat-file tag), $tagval or die $!;
}
}
$!=0; $_=<T>; defined or die $!;
+}
+
+sub parsetag_general ($$;$) {
+ my ($mainfn, $dgititemfn, $need_distro) = @_;
+ printdebug " parsetag...\n";
+ readtag();
$mainfn->();
my $copyl = $_;