This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test preamble: unify chdir 't' if -d 't';
[perl5.git] / t / op / qr.t
index dc49f1e..3ce7486 100644 (file)
--- a/t/op/qr.t
+++ b/t/op/qr.t
@@ -3,7 +3,7 @@
 use strict;
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     require './test.pl';
 }