X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e64254544c11557cb1b5190db4b7f1b2f1aeabe0..a817e89d04f0dee7285d1e26ba27439611ce97f9:/t/op/qr.t

diff --git a/t/op/qr.t b/t/op/qr.t
index dc49f1e..3ce7486 100644
--- 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';
 }