Ensure we can run under prove -T

diff --git a/t/04thread-torture.t b/t/04thread-torture.t
index 8f09b3a..a7fea15 100644 (file)
--- a/t/04thread-torture.t
+++ b/t/04thread-torture.t
@@ -13,6 +13,7 @@ use strict;
 use warnings;
 no warnings 'once';
 use Time::HiRes 'sleep';
+use Cwd 'getcwd';
 
 $|++; # seems to be critical
 
@@ -45,7 +46,7 @@ if ($ENV{AUTOMATED_TESTING}) {
 print "1..$::TEST_COUNT\n";
 
 sub run_torture {
-  do 't/03torture.t';
+  do( ( "@{[ getcwd() ]}/t/03torture.t" =~ /^(.*)$/ )[0] );
   die $@ if $@ ne '';
   42;
 }