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>
--- /dev/null
+# -*- perl -*-
+
+package Debian::Dgit::Infra;
+
+use strict;
+use warnings;
+
+# push @INC, q{usr/share/dgit/infra/perl5}; ###substituted###
+
+1;
use strict;
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
use Debian::Dgit;
setup_sigwarn();
use strict;
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
use Debian::Dgit qw(:DEFAULT :policyflags);
setup_sigwarn();
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
use strict;
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
use Debian::Dgit qw(:DEFAULT :policyflags);
setup_sigwarn();
use strict;
+use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC!
use Debian::Dgit;
setup_sigwarn();