This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get inccode.t working under miniperl
[perl5.git] / t / op / inccode.t
index 1a0b919..41e31d2 100644 (file)
@@ -4,8 +4,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
     require './test.pl';
     require './test.pl';
+    @INC = () unless is_miniperl();
+    unshift @INC, '../lib';
 }
 
 use Config;
 }
 
 use Config;