From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 17 May 2018 10:37:40 +0000 (+0100)
Subject: Perl @INC path: fix a few more scripts to use BEGIN
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=b328ff229bc18f319eb3283e49023affd9edf3c7;p=people%2Faperard%2Fosstest.git

Perl @INC path: fix a few more scripts to use BEGIN

Three more files which missed out on
  dea987c5ab11 "PERLLIB, @INC: Use BEGIN { }"

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
CC: Roger Pau Monné <roger.pau@citrix.com>
---

diff --git a/mg-anoint b/mg-anoint
index 837e6089..b007ab42 100755
--- a/mg-anoint
+++ b/mg-anoint
@@ -63,7 +63,7 @@
 
 use strict qw(vars refs);
 use DBI;
-unshift @INC, qw(.);
+BEGIN { unshift @INC, qw(.); }
 use Osstest;
 use Osstest::TestSupport;
 use Osstest::Executive;
diff --git a/ts-examine-hostprops-save b/ts-examine-hostprops-save
index 188773ff..55d23392 100755
--- a/ts-examine-hostprops-save
+++ b/ts-examine-hostprops-save
@@ -19,7 +19,7 @@ use strict qw(vars);
 use DBI;
 use POSIX;
 
-unshift @INC, qw(.);
+BEGIN { unshift @INC, qw(.); }
 use Osstest;
 use Osstest::TestSupport;
 
diff --git a/ts-freebsd-host-install b/ts-freebsd-host-install
index cac8be9d..984bdf0a 100755
--- a/ts-freebsd-host-install
+++ b/ts-freebsd-host-install
@@ -35,7 +35,7 @@ use strict qw(vars);
 use DBI;
 use POSIX;
 
-unshift @INC, qw(.);
+BEGIN { unshift @INC, qw(.); }
 use Osstest;
 use Osstest::TestSupport;