This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Let qr.t run from the top level
authorFather Chrysostomos <sprout@cpan.org>
Sat, 22 Sep 2012 05:44:00 +0000 (22:44 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 22 Sep 2012 17:06:17 +0000 (10:06 -0700)
t/op/qr.t

index cc42db0..83bb3d9 100644 (file)
--- a/t/op/qr.t
+++ b/t/op/qr.t
@@ -2,7 +2,10 @@
 
 use strict;
 
-BEGIN { require './test.pl'; }
+BEGIN {
+    chdir 't';
+    require './test.pl';
+}
 
 plan(tests => 18);