chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
81aaaee
)
Break out changespat (no functional change)
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 7 Nov 2015 11:10:39 +0000
(11:10 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 1 Jul 2016 22:53:45 +0000
(23:53 +0100)
dgit
patch
|
blob
|
history
diff --git
a/dgit
b/dgit
index 7ec09de85d5932edccdd4b1308f38b505aa41e69..51df7c30defe743bd435f8318a718bf4b7e36229 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-147,6
+147,11
@@
sub dscfn ($) {
return srcfn($vsn,".dsc");
}
return srcfn($vsn,".dsc");
}
+sub changespat ($;$) {
+ my ($vsn, $arch) = @_;
+ return "${package}_".(stripepoch $vsn)."_".($arch//'*').".changes";
+}
+
our $us = 'dgit';
initdebug('');
our $us = 'dgit';
initdebug('');
@@
-1997,12
+2002,11
@@
END
}
my $head = git_rev_parse('HEAD');
if (!$changesfile) {
}
my $head = git_rev_parse('HEAD');
if (!$changesfile) {
- my $multi = "$buildproductsdir/".
- "${package}_".(stripepoch $cversion)."_multi.changes";
+ my $multi = "$buildproductsdir/".changespat $cversion,'multi';
if (stat_exists "$multi") {
$changesfile = $multi;
} else {
if (stat_exists "$multi") {
$changesfile = $multi;
} else {
- my $pat =
"${package}_".(stripepoch $cversion)."_*.changes"
;
+ my $pat =
changespat $cversion
;
my @cs = glob "$buildproductsdir/$pat";
fail "failed to find unique changes file".
" (looked for $pat in $buildproductsdir, or $multi);".
my @cs = glob "$buildproductsdir/$pat";
fail "failed to find unique changes file".
" (looked for $pat in $buildproductsdir, or $multi);".
@@
-3106,7
+3110,7
@@
sub build_source {
$suppress_clean = 1;
}
build_prep();
$suppress_clean = 1;
}
build_prep();
- $sourcechanges =
"${package}_".(stripepoch $version)."_source.changes"
;
+ $sourcechanges =
changespat $version,'source'
;
$dscfn = dscfn($version);
if ($cleanmode eq 'dpkg-source') {
runcmd_ordryrun_local @dpkgbuildpackage, qw(-us -uc -S),
$dscfn = dscfn($version);
if ($cleanmode eq 'dpkg-source') {
runcmd_ordryrun_local @dpkgbuildpackage, qw(-us -uc -S),
@@
-3136,7
+3140,7
@@
sub cmd_build_source {
sub cmd_sbuild {
build_source();
changedir "..";
sub cmd_sbuild {
build_source();
changedir "..";
- my $pat =
"${package}_".(stripepoch $version)."_*.changes"
;
+ my $pat =
changespat $version
;
if (act_local()) {
stat_exists $dscfn or fail "$dscfn (in parent directory): $!";
stat_exists $sourcechanges
if (act_local()) {
stat_exists $dscfn or fail "$dscfn (in parent directory): $!";
stat_exists $sourcechanges
@@
-3160,7
+3164,7
@@
sub cmd_sbuild {
if $l =~ m/\.dsc$/;
}
runcmd_ordryrun_local @mergechanges, @changesfiles;
if $l =~ m/\.dsc$/;
}
runcmd_ordryrun_local @mergechanges, @changesfiles;
- my $multichanges =
"${package}_".(stripepoch $version)."_multi.changes"
;
+ my $multichanges =
changespat $version,'multi'
;
if (act_local()) {
stat_exists $multichanges or fail "$multichanges: $!";
foreach my $cf (glob $pat) {
if (act_local()) {
stat_exists $multichanges or fail "$multichanges: $!";
foreach my $cf (glob $pat) {