Deprecate above \xFF in bitwise string ops

[perl5.git] / t / op / loopctl.t

diff --git a/t/op/loopctl.t b/t/op/loopctl.t
index e0e37e4..1bb3c9c 100644 (file)
--- a/t/op/loopctl.t
+++ b/t/op/loopctl.t
@@ -32,8 +32,8 @@
 #  -- .robin. <robin@kitsite.com>  2001-03-13
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require "./test.pl";
+    set_up_inc(qw(. ../lib));
 }
 
 plan( tests => 67 );