chiark / gitweb /
Infra: Introduce Debian::Dgit::Infra
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 15 Oct 2016 16:04:33 +0000 (17:04 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 15 Oct 2016 18:38:09 +0000 (19:38 +0100)
This is used by all the Perl in dgit-infrastructure.deb.
So far it does nothing, so no functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Debian/Dgit/Infra.pm [new file with mode: 0644]
infra/dgit-repos-admin-debian
infra/dgit-repos-policy-debian
infra/dgit-repos-policy-trusting
infra/dgit-repos-server
infra/dgit-ssh-dispatch

diff --git a/Debian/Dgit/Infra.pm b/Debian/Dgit/Infra.pm
new file mode 100644 (file)
index 0000000..1f2c702
--- /dev/null
@@ -0,0 +1,10 @@
+# -*- perl -*-
+
+package Debian::Dgit::Infra;
+
+use strict;
+use warnings;
+
+# push @INC, q{usr/share/dgit/infra/perl5}; ###substituted###
+
+1;
index e19155d..6d1e4d0 100755 (executable)
@@ -18,6 +18,7 @@
 
 use strict;
 
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
 use Debian::Dgit;
 setup_sigwarn();
 
index ee369b0..8f1164b 100755 (executable)
@@ -18,6 +18,7 @@
 
 use strict;
 
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
 use Debian::Dgit qw(:DEFAULT :policyflags);
 setup_sigwarn();
 
index 0620b70..b551d50 100755 (executable)
@@ -38,7 +38,10 @@ delibs=$1    ; shift
 bitmask=0
 
 policyflags () {
-       perl -e 'use Debian::Dgit qw(:policyflags); print '$1',"\n"'
+       perl -e '
+               use Debian::Dgit::Infra;
+               use Debian::Dgit qw(:policyflags); print '$1',"\n"
+       '
 }
 
 set -e
index 1b3f661..1be3360 100755 (executable)
@@ -51,6 +51,7 @@
 
 use strict;
 
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
 use Debian::Dgit qw(:DEFAULT :policyflags);
 setup_sigwarn();
 
index 17cf358..c5861d2 100755 (executable)
@@ -18,6 +18,7 @@
 
 use strict;
 
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
 use Debian::Dgit;
 setup_sigwarn();