From a614465128ae85841faa659a5e0efa73bfdddae8 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Fri, 9 Jan 2004 12:20:38 +0000 Subject: [PATCH] temporarily backout test of thread returning a closure. It crashes win32. p4raw-id: //depot/perl@22103 --- ext/threads/t/problems.t | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/ext/threads/t/problems.t b/ext/threads/t/problems.t index 81e1825..d555dcd 100644 --- a/ext/threads/t/problems.t +++ b/ext/threads/t/problems.t @@ -18,7 +18,7 @@ use threads::shared; # call is() from within the DESTROY() function at global destruction time, # and parts of Test::* may have already been freed by then -print "1..9\n"; +print "1..8\n"; my $test : shared = 1; @@ -97,13 +97,16 @@ threads->new( # the anon sub's pad wasn't for a lexical, then a core dump could occur. # Otherwise, there might be leaked scalars. -sub f { - my $x = "foo"; - sub { $x."bar" }; -} - -my $string = threads->new(\&f)->join->(); -print $string eq 'foobar' ? '' : 'not ', "ok $test - returning closure\n"; -$test++; +# XXX DAPM 9-Jan-04 - backed this out for now - returning a closure from a +# thread seems to crash win32 + +# sub f { +# my $x = "foo"; +# sub { $x."bar" }; +# } +# +# my $string = threads->new(\&f)->join->(); +# print $string eq 'foobar' ? '' : 'not ', "ok $test - returning closure\n"; +# $test++; 1; -- 2.7.4