$authline =~ m/$git_authline_re/o or
fail "unexpected commit author line format \`$authline'".
" (was generated from changelog Maintainer field)";
+ return ($1,$2,$3) if wantarray;
return $authline;
}
}
}
-sub quiltify_splitbrain ($) {
- my ($diffbits) = @_;
+sub quiltify_splitbrain ($$) {
+ my ($clogp, $diffbits) = @_;
if ($quilt_mode !~ m/gbp|dpm/) {
# treat .gitignore just like any other upstream file
$diffbits = { %$diffbits };
" --quilt=gbp --quilt=dpm --quilt=unapplied ?";
if ($quilt_mode =~ m/gbp|dpm|unapplied/) {
- quiltify_splitbrain($diffbits);
+ quiltify_splitbrain($clogp, $diffbits);
return;
}