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 5953490e41bb919db1eb8ab1405d75e2094bb784..e8d2608aef09a5ab3ee04b33b1025ba149830a1a 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-17,7
+17,8
@@
BEGIN {
@EXPORT = qw(debiantag server_branch server_ref
stat_exists git_for_each_ref
git_for_each_tag_referring
@EXPORT = qw(debiantag server_branch server_ref
stat_exists git_for_each_ref
git_for_each_tag_referring
- $package_re $component_re $branchprefix
+ $package_re $component_re $deliberately_re
+ $branchprefix
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
@@
-30,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) = @_;