More tweaks to threads 1.37, by Jerry D. Hedden

[p5sagit/p5-mst-13.2.git] / ext / threads / t / thread.t

diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t
index b104616..5fb2425 100644 (file)
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -171,9 +171,9 @@ package main;
 
 # bugid #24165
 
-run_perl(prog => 'use threads 1.37;
-                  sub a{threads->create(shift)} $t = a sub{};
-                  $t->tid; $t->join; $t->tid',
+run_perl(prog => 'use threads 1.37;' .
+                 'sub a{threads->create(shift)} $t = a sub{};' .
+                 '$t->tid; $t->join; $t->tid',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
          switches => ($ENV{PERL_CORE}) ? [] : [ '-Mblib' ]);
 is($?, 0, 'coredump in global destruction');