Let while.t run from the top level

[perl5.git] / t / cmd / while.t

diff --git a/t/cmd/while.t b/t/cmd/while.t
index 5107fe2..5d2af71 100644 (file)
--- a/t/cmd/while.t
+++ b/t/cmd/while.t
@@ -1,6 +1,7 @@
 #!./perl
 
 BEGIN {
 #!./perl
 
 BEGIN {

+    chdir 't';

     require "test.pl";
 }
 
     require "test.pl";
 }