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 837e60892a8eb6d3276cc51cd3142b2c0cde25b7..b007ab426607875bfd2cddeb81fc20fe54f9d6f3 100755 (executable)
--- 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 188773ff8b2c14136bf2f92566d8eb57457b89f0..55d233929e057aa9b64db226d3b941ab7d1df9e6 100755 (executable)
--- 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 cac8be9d228c2e4af278b8142f546087080da345..984bdf0a5a41c0e447282a61d83ef832f4b67039 100755 (executable)
--- 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;