chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dgit-repos-server: tag2upload: Drop an obsolete comment
[dgit.git]
/
infra
/
dgit-repos-server
diff --git
a/infra/dgit-repos-server
b/infra/dgit-repos-server
index df0be6bf605720ac7636edf10683b00184e769ab..811db69dd38021c3cb845ec781f6f8e81903cdfd 100755
(executable)
--- a/
infra/dgit-repos-server
+++ b/
infra/dgit-repos-server
@@
-1112,7
+1112,11
@@
sub mode_tag2upload () {
my $tagref = "refs/tags/$tagval";
rmtree $work;
my $tagref = "refs/tags/$tagval";
rmtree $work;
+ rmtree 'bpd';
mkdir $work or die $!;
mkdir $work or die $!;
+ mkdir 'bpd' or die $!;
+ unlink <*.orig*>;
+ dif $! if <*.orig*>;
changedir $work;
runcmd qw(git init -q);
runcmd qw(git remote add origin), $url;
changedir $work;
runcmd qw(git init -q);
runcmd qw(git remote add origin), $url;
@@
-1128,7
+1132,7
@@
sub mode_tag2upload () {
# quick and dirty check, will check properly later
m/^\[dgit[^"]* please-upload(?:\]| )/m or
# quick and dirty check, will check properly later
m/^\[dgit[^"]* please-upload(?:\]| )/m or
- $quit->("tag missing please-upload request
$_
");
+ $quit->("tag missing please-upload request");
m/^tagger (.*) \d+ [-+]\d+$/m or
$quit->("failed to fish tagger out of tag");
m/^tagger (.*) \d+ [-+]\d+$/m or
$quit->("failed to fish tagger out of tag");
@@
-1145,7
+1149,6
@@
sub mode_tag2upload () {
# This is for us. From now on, we will capture errors to
# be emailed to the tagger.
# This is for us. From now on, we will capture errors to
# be emailed to the tagger.
- # TODO: failures to git fetch from salsa will burn a version
open H, ">>dgit-tmp/tagupl.email" or die $!;
print H <<END or die $!;
open H, ">>dgit-tmp/tagupl.email" or die $!;
print H <<END or die $!;
@@
-1185,14
+1188,15
@@
END
-f$ENV{DGIT_DRS_EMAIL_NOREPLY} \\
<tagupl.email
END
-f$ENV{DGIT_DRS_EMAIL_NOREPLY} \\
<tagupl.email
END
-
exit 0
;
+
$quit->("failed, emailed")
;
}
open STDERR, ">&L" or die $!;
open STDOUT, ">&STDERR" or die $!;
open DEBUG, ">&STDERR" if $debuglevel;
}
open STDERR, ">&L" or die $!;
open STDOUT, ">&STDERR" or die $!;
open DEBUG, ">&STDERR" if $debuglevel;
- die "$tagmversion != $version " unless $tagmversion eq $version;
+ reject "version mismatch $tagmversion != $version "
+ unless $tagmversion eq $version;
my %need = map { $_ => 1 } qw(please-upload split);
my ($upstreamc, $upstreamt);
my %need = map { $_ => 1 } qw(please-upload split);
my ($upstreamc, $upstreamt);
@@
-1233,6
+1237,7
@@
END
push @dgit, $ENV{DGIT_DRS_DGIT} // 'dgit';
push @dgit, '-wn';
push @dgit, "-p$package";
push @dgit, $ENV{DGIT_DRS_DGIT} // 'dgit';
push @dgit, '-wn';
push @dgit, "-p$package";
+ push @dgit, '--build-products-dir=../bpd';
changedir "..";
runcmd (@dgit, qw(setup-gitattributes));
changedir "..";
runcmd (@dgit, qw(setup-gitattributes));