my $cp = defined($copy_of) ? " to branch $copy_of" : "";
if ($old =~ /^0+/) {
$subj .= " Created tag $tag$cp";
print $out "Created tag $tag$cp ($new).\n\n";
} else {
$subj .= " Changed tag $tag$cp";
my $cp = defined($copy_of) ? " to branch $copy_of" : "";
if ($old =~ /^0+/) {
$subj .= " Created tag $tag$cp";
print $out "Created tag $tag$cp ($new).\n\n";
} else {
$subj .= " Changed tag $tag$cp";