From e81465beff59e6c9907613fe00ebce59d81fb1e8 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 8 Jan 2007 21:20:26 +0000
Subject: do $file; won't propagate errors from die, as do is an implicit eval.
 So need to propagate errors with $@.

p4raw-id: //depot/perl@29723
---
 t/op/threads.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/op/threads.t')

diff --git a/t/op/threads.t b/t/op/threads.t
index 165c542bc0..43f6b07b68 100644
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -111,5 +111,5 @@ EOI
 # http://www.nntp.perl.org/group/perl.perl5.porters/63123
 fresh_perl_is(<<'EOI', 'ok', { }, 'Ensure PL_linestr can be cloned');
 use threads;
-print do 'op/threads_create.pl';
+print do 'op/threads_create.pl' || die $@;
 EOI
-- 
cgit v1.2.1