Perl: Put . on @INC

Perl in Debian stretch quite properly no longer has . in @INC by
default.

However, (almost everything in) osstest expects to be run standing
inside an osstest tree, and expects to find its various pieces in `.'

So add . back to @INC, at the front.

This patch was autogenerated using the following rune:

 git-grep -l '#! */usr/bin/perl' | xargs -n1 perl -i~ -pe 'next unless m/^use Osstest/; next if $done++; print "unshift \@INC, qw(.);\n";'

Reported-by: Wei Liu <wei.liu2@citrix.com>
Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/adhoc-revtuple-generator b/adhoc-revtuple-generator
index c920e9c519c7c2a9cfc458d33eb7df7defb466d2..39fc523cd4c210bee7c3cb93440ab8eb1a67e06d 100755 (executable)
--- a/adhoc-revtuple-generator
+++ b/adhoc-revtuple-generator
@@ -23,6 +23,7 @@ use IO::Handle;
 no warnings qw(recursion);
 use Data::Dumper;
 use POSIX;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Executive;

diff --git a/cr-disk-report b/cr-disk-report
index 837f92867208d33f601ee8820da432d1ee917f73..a386ce43a4d3739afcf579dda69c50c9f3ffbbd7 100755 (executable)
--- a/cr-disk-report
+++ b/cr-disk-report
@@ -21,6 +21,7 @@
 # usage: ./cr-disk-report [<options>] cfgbase
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Management qw(:logs);
 

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index 7846580c734618a0131772a74cc4a9066f827aa7..da5cd7cb5cc78f00f4af31e06a7ca96ed879d6d5 100755 (executable)
--- a/cr-ensure-disk-space
+++ b/cr-ensure-disk-space
@@ -21,6 +21,7 @@
 
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Management qw(:logs);
 use Fcntl qw(:flock);

diff --git a/cr-publish-flight-logs b/cr-publish-flight-logs
index 8a19d883781518dd07fa86602580bac750f421e3..b3f4128906fb48c16908b5ff4b62e3397481c6ec 100755 (executable)
--- a/cr-publish-flight-logs
+++ b/cr-publish-flight-logs
@@ -19,6 +19,7 @@
 
 use strict qw(refs vars);
 use Fcntl qw(:flock);
+unshift @INC, qw(.);
 use Osstest;
 
 our %c;

diff --git a/cs-adjust-flight b/cs-adjust-flight
index 45c1420f08237c22d805bc6773aa80329138d187..c57928f9b863732784194375ec073776eef72084 100755 (executable)
--- a/cs-adjust-flight
+++ b/cs-adjust-flight
@@ -62,6 +62,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Data::Dumper;
 

diff --git a/cs-bisection-step b/cs-bisection-step
index a0ceaa77166444d0357a94b36876f4e68172df71..162e06864bc4054cd7e64a5787f500e910c65170 100755 (executable)
--- a/cs-bisection-step
+++ b/cs-bisection-step
@@ -37,6 +37,7 @@
 
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use Data::Dumper;
 no warnings qw(recursion);

diff --git a/cs-flight-bless b/cs-flight-bless
index be141dfb55cf3f2dbd2cc1b76cb105bf2ab92fe3..0494997e7ce119df2935d8e840c30ffe0311ba02 100755 (executable)
--- a/cs-flight-bless
+++ b/cs-flight-bless
@@ -22,6 +22,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 
 csreadconfig();

diff --git a/cs-flight-create b/cs-flight-create
index dfe419521b734014b75ce6992c58871d12a45ae2..a412396e0ff02773e4fe73025999b94da5b17110 100755 (executable)
--- a/cs-flight-create
+++ b/cs-flight-create
@@ -19,6 +19,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 
 csreadconfig();

diff --git a/cs-job-create b/cs-job-create
index 9812bf24b0652f7734768f59a37aa1ea8d32984d..85d576cdb42a71848b65d3cbb002e083fe17a8d8 100755 (executable)
--- a/cs-job-create
+++ b/cs-job-create
@@ -27,6 +27,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 
 csreadconfig();

diff --git a/determine-failure-reasons b/determine-failure-reasons
index 3c11a3a734b8bee0cce6c03dc0e38de6e5cba6a8..ecff3320b77f3ed986d3c188643f00b630583355 100755 (executable)
--- a/determine-failure-reasons
+++ b/determine-failure-reasons
@@ -20,6 +20,7 @@
 use strict qw(refs vars);
 
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use POSIX;
 

diff --git a/mg-allocate b/mg-allocate
index 3b3fa726deee3285413526432e9a2ef3d7fdc96f..7b1eb62ee869560f38ea3644a8594a8f76bd20ce 100755 (executable)
--- a/mg-allocate
+++ b/mg-allocate
@@ -77,6 +77,7 @@
 
 use strict qw(vars refs);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Executive;

diff --git a/mg-blockage b/mg-blockage
index d3e6169dd7a31d5f4fc183568c9d3ac60756ce9a..f0af91ef6ee90efa6cc22df6274642c306185c10 100755 (executable)
--- a/mg-blockage
+++ b/mg-blockage
@@ -5,6 +5,7 @@
 use strict qw(vars refs);
 use DBI;
 use Data::Dumper;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Executive;

diff --git a/mg-db-activity-logger b/mg-db-activity-logger
index c4077a70a01f838f7d98752b53059bb73ec6ec67..8a389403638e122db88e21261294ee132362a1ac 100755 (executable)
--- a/mg-db-activity-logger
+++ b/mg-db-activity-logger
@@ -12,6 +12,7 @@ BEGIN {
 unshift @INC, "$`" if $0 =~ m#/[^/]+$#;
 }
 
+unshift @INC, qw(.);
 use Osstest;
 
 our $dbname = 'osstestdb';

diff --git a/mg-db-activity-redactor b/mg-db-activity-redactor
index 253a976f3548c588c342d42fcfdf32ccb696201f..2ab6cfe0ed432589376880351e52e27dfc347603 100755 (executable)
--- a/mg-db-activity-redactor
+++ b/mg-db-activity-redactor
@@ -9,6 +9,7 @@ BEGIN {
 unshift @INC, "$`" if $0 =~ m#/[^/]+$#;
 }
 
+unshift @INC, qw(.);
 use Osstest;
 
 our @tsforce;

diff --git a/mg-hosts b/mg-hosts
index 831a6e171ea88ff75a63ecdbdab2edd438219dbb..bd67a0a2fe0215e57a648c652f6e828072397568 100755 (executable)
--- a/mg-hosts
+++ b/mg-hosts
@@ -92,6 +92,7 @@
 
 use strict qw(vars refs);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use File::Basename;

diff --git a/mg-queue-inhibit b/mg-queue-inhibit
index fd9da8ebc55c04d29908bb05618d18c661fe7af0..93f254cfa2c9705596d2c43993e08e15bf3a5716 100755 (executable)
--- a/mg-queue-inhibit
+++ b/mg-queue-inhibit
@@ -19,6 +19,7 @@
 
 use strict qw(refs vars);
 
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Executive;
 

diff --git a/mg-report-host-usage-collect b/mg-report-host-usage-collect
index ab43c5f43d21bede0be945727fd3543804ea0dba..6a8cc689cd8df6461d1730cde3a78a8e567ce72d 100755 (executable)
--- a/mg-report-host-usage-collect
+++ b/mg-report-host-usage-collect
@@ -20,6 +20,7 @@
 use strict qw(vars);
 
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use IO::Handle;
 use POSIX;

diff --git a/mg-schema-update b/mg-schema-update
index 9bba138c3de791dc9ee040679d5ab78e804fc15b..43f313abc28bde06bde581c0f418b72cafece8e0 100755 (executable)
--- a/mg-schema-update
+++ b/mg-schema-update
@@ -53,6 +53,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Executive;
 

diff --git a/mg-show-flight-runvars b/mg-show-flight-runvars
index d708fedf09aadbedebe5aa35a8030628747501aa..7e8bd8edb45092a27bfd248fc2e589b454c19acc 100755 (executable)
--- a/mg-show-flight-runvars
+++ b/mg-show-flight-runvars
@@ -21,6 +21,7 @@
 
 use strict qw(vars refs);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 
 csreadconfig();

diff --git a/ms-flights-summary b/ms-flights-summary
index 4e0ce5cf9e5ad47f3bed60cfe425662f882f0564..7981e44103f2a14cf6cc2e465224bf60394ac2fa 100755 (executable)
--- a/ms-flights-summary
+++ b/ms-flights-summary
@@ -2,6 +2,7 @@
 
 use strict qw(vars refs);
 
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Executive;
 

diff --git a/ms-planner b/ms-planner
index 22f9806c4dcf55e3c6f777fef1245af7561c3def..c060b028a6581a4f420a3765d9a032c50831076d 100755 (executable)
--- a/ms-planner
+++ b/ms-planner
@@ -22,6 +22,7 @@
 
 use strict qw(vars refs);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use JSON;
 use POSIX;

diff --git a/ms-planner-debug b/ms-planner-debug
index eac567556b45c5027e1ba1c356440d40789f45f9..acfbc22a6c993d965ee8e23c2461b916bdcf24ea 100755 (executable)
--- a/ms-planner-debug
+++ b/ms-planner-debug
@@ -21,6 +21,7 @@ use strict qw(vars refs);
 use JSON;
 use Data::Dumper;
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 
 csreadconfig();

diff --git a/sg-check-tested b/sg-check-tested
index bfb27e109ab8780b634438d4f6c7591ccfad574a..3c09aacb0a9670f27f39f1fd282f2d28b19c37f8 100755 (executable)
--- a/sg-check-tested
+++ b/sg-check-tested
@@ -19,6 +19,7 @@
 use strict;
 
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use IO::Handle;
 

diff --git a/sg-report-flight b/sg-report-flight
index ed49d69b5ec5c08edce71650834443c5c4736103..e25df2cddb34866fff49fbabe114d3432258fa61 100755 (executable)
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -20,6 +20,7 @@
 use strict qw(refs vars);
 
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use IO::Handle;
 use HTML::Entities;

diff --git a/sg-report-host-history b/sg-report-host-history
index 9d39483d61409df170705643b33c08775243427e..cb98ea0bc03773f98babf2094a9975fb4a6829e1 100755 (executable)
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -20,6 +20,7 @@
 use strict qw(vars);
 
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use IO::Handle;
 use HTML::Entities;

diff --git a/sg-report-job-history b/sg-report-job-history
index f6c47c249954ab312955fe1ba8c69a9cb6181522..111579366a703eedfa2cf027609634c042c568dc 100755 (executable)
--- a/sg-report-job-history
+++ b/sg-report-job-history
@@ -20,6 +20,7 @@
 use strict qw(vars);
 
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use IO::Handle;
 use HTML::Entities;

diff --git a/ts-build-check b/ts-build-check
index 0ae3be8320a80a2557dbe09025757c8292ff7365..92e19fb0f01a261ff8d615a7527325d20b0d803f 100755 (executable)
--- a/ts-build-check
+++ b/ts-build-check
@@ -15,6 +15,7 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-coverity-build b/ts-coverity-build
index 1d8bd0c39e5aeb8c35c164373cf04de9cd7be1f7..6e29102bfd6ddfe025869fe31be8ac10adb1a953 100755 (executable)
--- a/ts-coverity-build
+++ b/ts-coverity-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use File::Path;
 use POSIX;

diff --git a/ts-coverity-upload b/ts-coverity-upload
index 94c7e71e73b781ce89f7a8c0383454570cd233e3..bcdfa9131769098caa4c0feb01479554008d1753 100755 (executable)
--- a/ts-coverity-upload
+++ b/ts-coverity-upload
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use File::Path;
 use POSIX;

diff --git a/ts-debian-di-install b/ts-debian-di-install
index 42939f25fe3425431e364a71faea0888f49bdfc0..320d0d9460a41c24d9eac7dc932318dbcb671f66 100755 (executable)
--- a/ts-debian-di-install
+++ b/ts-debian-di-install
@@ -51,6 +51,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Debian;
 use Osstest::TestSupport;

diff --git a/ts-debian-fixup b/ts-debian-fixup
index cc779a3f2d9025233e7311bdea0f6ea2815a9bb3..571b250946066b58bf8be76a83a53fed3b591709 100755 (executable)
--- a/ts-debian-fixup
+++ b/ts-debian-fixup
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Debian;

diff --git a/ts-debian-hvm-install b/ts-debian-hvm-install
index 7521d57191e182bd972e7f53130e774389e37074..7237b748956611d60a66df73cc6849e9e8d10660 100755 (executable)
--- a/ts-debian-hvm-install
+++ b/ts-debian-hvm-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Debian;
 use Osstest::TestSupport;

diff --git a/ts-debian-install b/ts-debian-install
index 2a7331da233afb3901c6b776d8bee69dc404c1bc..4a662afd3a81e996e5816fb59b6ff8c12e113e2b 100755 (executable)
--- a/ts-debian-install
+++ b/ts-debian-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Debian;

diff --git a/ts-freebsd-install b/ts-freebsd-install
index d630f2a7d901bfb1127c94f5f1fac767fff67acf..f74f2093b05d6a768b8143dd5834ea357c288cec 100755 (executable)
--- a/ts-freebsd-install
+++ b/ts-freebsd-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-destroy b/ts-guest-destroy
index b4340f6007729f9a529a4187bb4fd0ae60b2b661..73834a5a02aee01f52f6e8cfd462308b237e9b3d 100755 (executable)
--- a/ts-guest-destroy
+++ b/ts-guest-destroy
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-destroy-hard b/ts-guest-destroy-hard
index 57d7100673e5d1d083c589ffebb82ddc46618d13..780bc4b3ff999e5e5aa4ad1f98839c9e3c456384 100755 (executable)
--- a/ts-guest-destroy-hard
+++ b/ts-guest-destroy-hard
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-localmigrate b/ts-guest-localmigrate
index 85a0887b7a239b83edc527b2727fc7826729be76..c06d77bb27d3a8eadbe1cea9bf8cd71753224ae2 100755 (executable)
--- a/ts-guest-localmigrate
+++ b/ts-guest-localmigrate
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-migrate b/ts-guest-migrate
index 505fab29b9babb67470a4b7fe2737a551cf7ff55..c4afe03db0fb6892474d429ca29bb945fb2f1103 100755 (executable)
--- a/ts-guest-migrate
+++ b/ts-guest-migrate
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-saverestore b/ts-guest-saverestore
index 73883ef8dc7a23ef27b795a295e943ee1184ae3d..c3b62cb8a16f4d1f53a21c036927b2b721abaf29 100755 (executable)
--- a/ts-guest-saverestore
+++ b/ts-guest-saverestore
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-start b/ts-guest-start
index a4347206da90d3609cd842bd65b825f538b94401..a9ca73286573360f1c4ec9f19c6c9aba0ad69f76 100755 (executable)
--- a/ts-guest-start
+++ b/ts-guest-start
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guest-stop b/ts-guest-stop
index 378f334312d6ab16b9275e5194ffc124ee632acf..89d9f4ed7c7b93121a7d03a671a9cd01e4ff8328 100755 (executable)
--- a/ts-guest-stop
+++ b/ts-guest-stop
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-guests-nbd-mirror b/ts-guests-nbd-mirror
index ee7ff606582d12b8f47ad276eb81ec93cd388b34..e14c0e8b4916da76aa5779fc29ac12d5de78d43d 100755 (executable)
--- a/ts-guests-nbd-mirror
+++ b/ts-guests-nbd-mirror
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-host-fail b/ts-host-fail
index b53124e36f44c6dbff57fdfe1b9df8f9860e26b9..b219b200a554ad0d2c939b2606e9aea7712f802c 100755 (executable)
--- a/ts-host-fail
+++ b/ts-host-fail
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-host-install b/ts-host-install
index e151c5bf35fe9cb3b569fdd414e1ecb83ae932f4..299eae481c4e505371c37ec89fdb5f1f75585d66 100755 (executable)
--- a/ts-host-install
+++ b/ts-host-install
@@ -19,6 +19,7 @@ use strict qw(vars);
 use DBI;
 use POSIX;
 
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Debian;
 use Osstest::TestSupport;

diff --git a/ts-host-ping-check b/ts-host-ping-check
index f10e73c7329229ec67ff55b9ec68b33e26bee919..ec1c43d6a8177a9817414476af6e9b2de78c9023 100755 (executable)
--- a/ts-host-ping-check
+++ b/ts-host-ping-check
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use DBI;
 use Osstest::TestSupport;

diff --git a/ts-host-powercycle b/ts-host-powercycle
index 5ee450abb137a6d26e340c8e3ee81cae16f41ac8..5ca976e400f91819bdade2e71cc4f47743a494d4 100755 (executable)
--- a/ts-host-powercycle
+++ b/ts-host-powercycle
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-host-reboot b/ts-host-reboot
index abd1511f0874e7826104d069b437de8e908f1b90..1e71e6e4308b8a5f107b423343ec2f8300b4c667 100755 (executable)
--- a/ts-host-reboot
+++ b/ts-host-reboot
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use DBI;
 use Osstest::TestSupport;

diff --git a/ts-hosts-allocate b/ts-hosts-allocate
index 15c54b31b96ca60d264ed069211cd1b3bc0f455b..d2bef366f960301394017e13f888fdb9e86e9f8b 100755 (executable)
--- a/ts-hosts-allocate
+++ b/ts-hosts-allocate
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 9d8fbfdf45904e522e9f0aff119540f8703e0fac..0b83365b428eef44c837671e1810587dbbcfbad5 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -17,6 +17,7 @@
 
 use strict;
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Data::Dumper;
 use POSIX;

diff --git a/ts-hosts-allocate-Standalone b/ts-hosts-allocate-Standalone
index 88a5d2807abecb4cc498055b220315306a7a863d..1311396efb9b60b6705e27490764466154f6f16e 100755 (executable)
--- a/ts-hosts-allocate-Standalone
+++ b/ts-hosts-allocate-Standalone
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-kernel-build b/ts-kernel-build
index 56bcfbde14fe800b5a97e705c255994865c9740c..94e67a47bbd9ba5447427460a186c6c955d3eec5 100755 (executable)
--- a/ts-kernel-build
+++ b/ts-kernel-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::BuildSupport;

diff --git a/ts-leak-check b/ts-leak-check
index 8a9797171e9aa82b2f78be14a74c7a910405d7cf..2712efaeda664bd3ed695cbb94d02b8d1bb08767 100755 (executable)
--- a/ts-leak-check
+++ b/ts-leak-check
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-libvirt-build b/ts-libvirt-build
index 2a531b91bf74aab966f916e9451b933c85aad35f..714402b4487b17b690db4cc0600c20d593a1a0a4 100755 (executable)
--- a/ts-libvirt-build
+++ b/ts-libvirt-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::BuildSupport;

diff --git a/ts-logs-capture b/ts-logs-capture
index 73b7c5e93a91106b0dbab2476481907bb19562eb..061a11829372666b8d72b2da887a06371914ffc7 100755 (executable)
--- a/ts-logs-capture
+++ b/ts-logs-capture
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use DBI;
 use IO::File;

diff --git a/ts-migrate-support-check b/ts-migrate-support-check
index ccc20ba6ea98d469632d9c27c868d6178720576b..96e3bd335292d4c85a6868ec0a76a89f9823140e 100755 (executable)
--- a/ts-migrate-support-check
+++ b/ts-migrate-support-check
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-nested-setup b/ts-nested-setup
index f7e0ebd60ac4f64f450e98dbe481e2b56a27ed34..fcbe3418d980bbd9dc8a0c0fdd51a5a4c0ffc65c 100755 (executable)
--- a/ts-nested-setup
+++ b/ts-nested-setup
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::Debian;
 use Osstest::TestSupport;

diff --git a/ts-redhat-install b/ts-redhat-install
index 10da55936b6f7372b97e985f622a5d61b766002c..9c83a5a1d5db2c70fa87476d5e50959e650eb095 100755 (executable)
--- a/ts-redhat-install
+++ b/ts-redhat-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-remus-check b/ts-remus-check
index c2f564215d39ab5af646419099a173279eeacd06..4c7eeb445af09fb45de88fb7462db869b2c56068 100755 (executable)
--- a/ts-remus-check
+++ b/ts-remus-check
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-remus-start b/ts-remus-start
index 7357cd8d89e551e4e644427f4a06187bdd4c6e65..61b1f18ff15c2f14ae54df6c0a367cec9b0372b0 100755 (executable)
--- a/ts-remus-start
+++ b/ts-remus-start
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-repeat-test b/ts-repeat-test
index e3b1426711285651f34307070f258812e9f8efbc..557c7c966262e8e5defd8d3dbc20a707bea65d38 100755 (executable)
--- a/ts-repeat-test
+++ b/ts-repeat-test
@@ -11,6 +11,7 @@
 # \          at the start of any ARGSPEC is removed (after the checks above)
 
 use strict;
+unshift @INC, qw(.);
 use Osstest::TestSupport;
 
 use Data::Dumper;

diff --git a/ts-rumprun-bake b/ts-rumprun-bake
index 31ce2590647036203c0b861188025ce2a5d25eaf..719701660c2a003efd08629aa9b55d2c24687274 100755 (executable)
--- a/ts-rumprun-bake
+++ b/ts-rumprun-bake
@@ -22,6 +22,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::BuildSupport;

diff --git a/ts-rumprun-build b/ts-rumprun-build
index f408359405763637fa6c0770714032a55dd6f72d..ff2fb8faeacfdf57d1d34cd75691e9ef0542a6e4 100755 (executable)
--- a/ts-rumprun-build
+++ b/ts-rumprun-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::BuildSupport;

diff --git a/ts-rumprun-demo-build b/ts-rumprun-demo-build
index c653d5b14b30ea8fa9f195252bc562dd942d595c..d3647121be69f0fd1bb6e1c996f395c9f170dc11 100755 (executable)
--- a/ts-rumprun-demo-build
+++ b/ts-rumprun-demo-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use File::Path;
 use POSIX;

diff --git a/ts-rumprun-demo-setup b/ts-rumprun-demo-setup
index b99c6f85f651f21c396bcbef90146d40f2478599..8058049c1c32084ac2e07b63160762f923be661b 100755 (executable)
--- a/ts-rumprun-demo-setup
+++ b/ts-rumprun-demo-setup
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-rumprun-demo-xenstorels b/ts-rumprun-demo-xenstorels
index 4c4568856c54326ee206d0e33130f6d55b94c8da..5544faadfc7ff34a3a47877f24b1035ff7776063 100755 (executable)
--- a/ts-rumprun-demo-xenstorels
+++ b/ts-rumprun-demo-xenstorels
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::RumpRun;

diff --git a/ts-rumprun-test-prep b/ts-rumprun-test-prep
index 60be5f463a8102e692bf86083d110d3ee7895214..0da7c2315d6a65419d69827526e668e41f9901e3 100755 (executable)
--- a/ts-rumprun-test-prep
+++ b/ts-rumprun-test-prep
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use POSIX;
 use Osstest::TestSupport;

diff --git a/ts-saverestore-support-check b/ts-saverestore-support-check
index b90ecab8d926beb18ada4257f3d6591799cf4ac6..781324ce57ba1d3d3bd1181c417fcf0c5873c8aa 100755 (executable)
--- a/ts-saverestore-support-check
+++ b/ts-saverestore-support-check
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-windows-install b/ts-windows-install
index 1f9cdadf7f30759944df531868572693cdc3e054..ecdf7670f10c73e5174915f65c89273ec9dfd135 100755 (executable)
--- a/ts-windows-install
+++ b/ts-windows-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-xen-build b/ts-xen-build
index 4f1f71a6b583383871c50d0e313f700949066624..31acb9dd72a2a1783482f7618bb3cceb06e64672 100755 (executable)
--- a/ts-xen-build
+++ b/ts-xen-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use File::Path;
 use POSIX;

diff --git a/ts-xen-build-prep b/ts-xen-build-prep
index 4dd10c47c889745b9deddcaa515ec81f02c32883..37736b7f813b36ebd4f10beebca41a533cd3352b 100755 (executable)
--- a/ts-xen-build-prep
+++ b/ts-xen-build-prep
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use POSIX;
 use Osstest::TestSupport;

diff --git a/ts-xen-install b/ts-xen-install
index c921e69d547ebf3c867681a5c3b6142cfd5ef40f..9eb2131caa36e8c33ea63f150b593d9c4ba77e9d 100755 (executable)
--- a/ts-xen-install
+++ b/ts-xen-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use File::Path;
 use POSIX;

diff --git a/ts-xtf-build b/ts-xtf-build
index 1af1b4e2af47dfdd04d30c6ba955d778b2d55267..1254b073d43b3a1fc9d1474c19b8e183a0bc7b84 100755 (executable)
--- a/ts-xtf-build
+++ b/ts-xtf-build
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use File::Path;
 use POSIX;

diff --git a/ts-xtf-fep b/ts-xtf-fep
index 91ac3ced40b32b3f66a44cfaf07607eee6313d5b..49ce3d02b6a5909a5c0d6f853862ec0aa24a4301 100755 (executable)
--- a/ts-xtf-fep
+++ b/ts-xtf-fep
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use POSIX;
 use Osstest::TestSupport;

diff --git a/ts-xtf-install b/ts-xtf-install
index 040772efd8e32a6dfa3c5257973db850fdde9cf0..d58ad02cac8e4bf2a9d658da4a44ee88ef556516 100755 (executable)
--- a/ts-xtf-install
+++ b/ts-xtf-install
@@ -17,6 +17,7 @@
 
 use strict qw(vars);
 use DBI;
+unshift @INC, qw(.);
 use Osstest;
 use Osstest::TestSupport;
 

diff --git a/ts-xtf-run b/ts-xtf-run
index d405bfb80b90b3baf962c8cdc791f212a9a7c3ef..3323ea838c841b7e1abaa72261eca640132ada04 100755 (executable)
--- a/ts-xtf-run
+++ b/ts-xtf-run
@@ -16,6 +16,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict qw(vars);
+unshift @INC, qw(.);
 use Osstest;
 use POSIX;
 use Osstest::TestSupport;