Test preamble: if requiring ./test.pl, needs chdir.

[perl5.git] / t / mro / next_NEXT_utf8.t

diff --git a/t/mro/next_NEXT_utf8.t b/t/mro/next_NEXT_utf8.t
index 5961a95..c04c85a 100644 (file)
--- a/t/mro/next_NEXT_utf8.t
+++ b/t/mro/next_NEXT_utf8.t
@@ -6,6 +6,7 @@ use NEXT;
 use utf8;
 use open qw( :utf8 :std );
 
+chdir 't' if -d 't';
 require './test.pl';
 plan(tests => 4);