printcmd(\*DEBUG,$debugprefix.$extraprefix,@_) if $debuglevel>0;
}
-sub debiantag ($) {
- my ($v) = @_;
+sub debiantag ($$) {
+ my ($v,$distro) = @_;
$v =~ y/~:/_%/;
- return "debian/$v";
+ return "$distro/$v";
}
sub server_branch ($) { return "$branchprefix/$_[0]"; }
sub git_get_ref ($) {
# => '' if no such ref
my ($refname) = @_;
- my $_ = $refname;
+ local $_ = $refname;
s{^refs/}{[r]efs/} or die "$refname $_ ?";
return cmdoutput qw(git for-each-ref --format=%(objectname)), $_;
}