chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Infra: Exit statuses: work around bizarre behaviour of perl die wrt $?, and de-reserv...
[dgit.git]
/
Debian
/
Dgit.pm
diff --git
a/Debian/Dgit.pm
b/Debian/Dgit.pm
index 507bcca835134c2c9f49f4f021591ee094d8c21e..e8d2608aef09a5ab3ee04b33b1025ba149830a1a 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-16,7
+16,9
@@
BEGIN {
@ISA = qw(Exporter);
@EXPORT = qw(debiantag server_branch server_ref
stat_exists git_for_each_ref
@ISA = qw(Exporter);
@EXPORT = qw(debiantag server_branch server_ref
stat_exists git_for_each_ref
- $package_re $component_re $branchprefix
+ git_for_each_tag_referring
+ $package_re $component_re $deliberately_re
+ $branchprefix
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
@@
-29,14
+31,15
@@
our @EXPORT_OK;
our $package_re = '[0-9a-z][-+.0-9a-z]*';
our $component_re = '[0-9a-zA-Z][-+.0-9a-zA-Z]*';
our $package_re = '[0-9a-z][-+.0-9a-z]*';
our $component_re = '[0-9a-zA-Z][-+.0-9a-zA-Z]*';
+our $deliberately_re = "(?:TEST-)?$package_re";
our $branchprefix = 'dgit';
# policy hook exit status bits
# see dgit-repos-server head comment for documentation
our $branchprefix = 'dgit';
# policy hook exit status bits
# see dgit-repos-server head comment for documentation
-# 1 is reserved in case something fails with `exit 1'
+# 1 is reserved in case something fails with `exit 1' and to spot
+# dynamic loader, runtime, etc., failures, which report 127 or 255
sub NOFFCHECK () { return 0x2; }
sub FRESHREPO () { return 0x4; }
sub NOFFCHECK () { return 0x2; }
sub FRESHREPO () { return 0x4; }
-# 0x80 is reserved
sub debiantag ($) {
my ($v) = @_;
sub debiantag ($) {
my ($v) = @_;