From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 10 Sep 2014 08:28:53 +0000 (+0200)
Subject: Ensure we can run under prove -T
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=13793f05c92d6c66d1014dc62a897e1eda48135d;p=p5sagit%2FDevel-PeekPoke.git

Ensure we can run under prove -T
---

diff --git a/t/04thread-torture.t b/t/04thread-torture.t
index 8f09b3a..a7fea15 100644
--- 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;
 }