chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Build system substitutions, for absurdities
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index 5fa500c65cc7ff2393d0ceb6fdce458b52446954..344d006692e40a80b40517d58e83502c16284020 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-41,6
+41,7
@@
use Carp;
use Debian::Dgit;
our $our_version = 'UNRELEASED'; ###substituted###
use Debian::Dgit;
our $our_version = 'UNRELEASED'; ###substituted###
+our $absurdity = undef; ###substituted###
our @rpushprotovsn_support = qw(4 3 2); # 4 is new tag format
our $protovsn;
our @rpushprotovsn_support = qw(4 3 2); # 4 is new tag format
our $protovsn;
@@
-146,6
+147,11
@@
our @ourdscfield = qw(Dgit Vcs-Dgit-Master);
our $csuite;
our $instead_distro;
our $csuite;
our $instead_distro;
+if (!defined $absurdity) {
+ $absurdity = $0;
+ $absurdity =~ s{/[^/]+$}{/absurd} or die;
+}
+
sub debiantag ($$) {
my ($v,$distro) = @_;
return $tagformatfn->($v, $distro);
sub debiantag ($$) {
my ($v,$distro) = @_;
return $tagformatfn->($v, $distro);