[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Xen-devel] [OSSTEST PATCH] 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@xxxxxxxxxx>
Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 adhoc-revtuple-generator     | 1 +
 cr-disk-report               | 1 +
 cr-ensure-disk-space         | 1 +
 cr-publish-flight-logs       | 1 +
 cs-adjust-flight             | 1 +
 cs-bisection-step            | 1 +
 cs-flight-bless              | 1 +
 cs-flight-create             | 1 +
 cs-job-create                | 1 +
 determine-failure-reasons    | 1 +
 mg-allocate                  | 1 +
 mg-blockage                  | 1 +
 mg-db-activity-logger        | 1 +
 mg-db-activity-redactor      | 1 +
 mg-hosts                     | 1 +
 mg-queue-inhibit             | 1 +
 mg-report-host-usage-collect | 1 +
 mg-schema-update             | 1 +
 mg-show-flight-runvars       | 1 +
 ms-flights-summary           | 1 +
 ms-planner                   | 1 +
 ms-planner-debug             | 1 +
 sg-check-tested              | 1 +
 sg-report-flight             | 1 +
 sg-report-host-history       | 1 +
 sg-report-job-history        | 1 +
 ts-build-check               | 1 +
 ts-coverity-build            | 1 +
 ts-coverity-upload           | 1 +
 ts-debian-di-install         | 1 +
 ts-debian-fixup              | 1 +
 ts-debian-hvm-install        | 1 +
 ts-debian-install            | 1 +
 ts-freebsd-install           | 1 +
 ts-guest-destroy             | 1 +
 ts-guest-destroy-hard        | 1 +
 ts-guest-localmigrate        | 1 +
 ts-guest-migrate             | 1 +
 ts-guest-saverestore         | 1 +
 ts-guest-start               | 1 +
 ts-guest-stop                | 1 +
 ts-guests-nbd-mirror         | 1 +
 ts-host-fail                 | 1 +
 ts-host-install              | 1 +
 ts-host-ping-check           | 1 +
 ts-host-powercycle           | 1 +
 ts-host-reboot               | 1 +
 ts-hosts-allocate            | 1 +
 ts-hosts-allocate-Executive  | 1 +
 ts-hosts-allocate-Standalone | 1 +
 ts-kernel-build              | 1 +
 ts-leak-check                | 1 +
 ts-libvirt-build             | 1 +
 ts-logs-capture              | 1 +
 ts-migrate-support-check     | 1 +
 ts-nested-setup              | 1 +
 ts-redhat-install            | 1 +
 ts-remus-check               | 1 +
 ts-remus-start               | 1 +
 ts-repeat-test               | 1 +
 ts-rumprun-bake              | 1 +
 ts-rumprun-build             | 1 +
 ts-rumprun-demo-build        | 1 +
 ts-rumprun-demo-setup        | 1 +
 ts-rumprun-demo-xenstorels   | 1 +
 ts-rumprun-test-prep         | 1 +
 ts-saverestore-support-check | 1 +
 ts-windows-install           | 1 +
 ts-xen-build                 | 1 +
 ts-xen-build-prep            | 1 +
 ts-xen-install               | 1 +
 ts-xtf-build                 | 1 +
 ts-xtf-fep                   | 1 +
 ts-xtf-install               | 1 +
 ts-xtf-run                   | 1 +
 75 files changed, 75 insertions(+)

diff --git a/adhoc-revtuple-generator b/adhoc-revtuple-generator
index c920e9c..39fc523 100755
--- 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 837f928..a386ce4 100755
--- 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 7846580..da5cd7c 100755
--- 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 8a19d88..b3f4128 100755
--- 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 45c1420..c57928f 100755
--- 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 a0ceaa7..162e068 100755
--- 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 be141df..0494997 100755
--- 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 dfe4195..a412396 100755
--- 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 9812bf2..85d576c 100755
--- 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 3c11a3a..ecff332 100755
--- 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 3b3fa72..7b1eb62 100755
--- 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 d3e6169..f0af91e 100755
--- 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 c4077a7..8a38940 100755
--- 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 253a976..2ab6cfe 100755
--- 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 831a6e1..bd67a0a 100755
--- 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 fd9da8e..93f254c 100755
--- 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 ab43c5f..6a8cc68 100755
--- 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 9bba138..43f313a 100755
--- 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 d708fed..7e8bd8e 100755
--- 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 4e0ce5c..7981e44 100755
--- 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 22f9806..c060b02 100755
--- 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 eac5675..acfbc22 100755
--- 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 bfb27e1..3c09aac 100755
--- 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 ed49d69..e25df2c 100755
--- 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 9d39483..cb98ea0 100755
--- 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 f6c47c2..1115793 100755
--- 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 0ae3be8..92e19fb 100755
--- 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 1d8bd0c..6e29102 100755
--- 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 94c7e71..bcdfa91 100755
--- 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 42939f2..320d0d9 100755
--- 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 cc779a3..571b250 100755
--- 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 7521d57..7237b74 100755
--- 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 2a7331d..4a662af 100755
--- 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 d630f2a..f74f209 100755
--- 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 b4340f6..73834a5 100755
--- 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 57d7100..780bc4b 100755
--- 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 85a0887..c06d77b 100755
--- 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 505fab2..c4afe03 100755
--- 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 73883ef..c3b62cb 100755
--- 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 a434720..a9ca732 100755
--- 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 378f334..89d9f4e 100755
--- 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 ee7ff60..e14c0e8 100755
--- 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 b53124e..b219b20 100755
--- 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 e151c5b..299eae4 100755
--- 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 f10e73c..ec1c43d 100755
--- 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 5ee450a..5ca976e 100755
--- 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 abd1511..1e71e6e 100755
--- 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 15c54b3..d2bef36 100755
--- 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 9d8fbfd..0b83365 100755
--- 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 88a5d28..1311396 100755
--- 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 56bcfbd..94e67a4 100755
--- 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 8a97971..2712efa 100755
--- 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 2a531b9..714402b 100755
--- 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 73b7c5e..061a118 100755
--- 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 ccc20ba..96e3bd3 100755
--- 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 f7e0ebd..fcbe341 100755
--- 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 10da559..9c83a5a 100755
--- 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 c2f5642..4c7eeb4 100755
--- 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 7357cd8..61b1f18 100755
--- 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 e3b1426..557c7c9 100755
--- 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 31ce259..7197016 100755
--- 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 f408359..ff2fb8f 100755
--- 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 c653d5b..d364712 100755
--- 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 b99c6f8..8058049 100755
--- 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 4c45688..5544faa 100755
--- 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 60be5f4..0da7c23 100755
--- 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 b90ecab..781324c 100755
--- 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 1f9cdad..ecdf767 100755
--- 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 4f1f71a..31acb9d 100755
--- 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 4dd10c4..37736b7 100755
--- 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 c921e69..9eb2131 100755
--- 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 1af1b4e..1254b07 100755
--- 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 91ac3ce..49ce3d0 100755
--- 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 040772e..d58ad02 100755
--- 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 d405bfb..3323ea8 100755
--- 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;
-- 
2.1.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
https://lists.xen.org/xen-devel

 


Rackspace

Lists.xenproject.org is hosted with RackSpace, monitoring our
servers 24x7x365 and backed by RackSpace's Fanatical Support®.