| Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 1 | From 42853af65a28066b119d23d96e964e94b55a8541 Mon Sep 17 00:00:00 2001 |
| 2 | From: Niko Tyni <ntyni@debian.org> |
| 3 | Date: Fri, 5 Aug 2011 10:50:18 +0300 |
| 4 | Subject: Skip a crashing test case in t/op/threads.t on GNU/kFreeBSD |
| 5 | |
| 6 | Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=96272 |
| 7 | Bug-Debian: http://bugs.debian.org/628493 |
| 8 | |
| 9 | The crash is not a regression in 5.14, it just gets triggered there by |
| 10 | a new unrelated test case. |
| 11 | |
| 12 | Skip the test until the culprit is found. |
| 13 | |
| 14 | Patch-Name: debian/skip-kfreebsd-crash.diff |
| 15 | --- |
| 16 | t/op/threads.t | 4 ++++ |
| 17 | 1 file changed, 4 insertions(+) |
| 18 | |
| 19 | diff --git a/t/op/threads.t b/t/op/threads.t |
| 20 | index e76c956..bec210b 100644 |
| 21 | --- a/t/op/threads.t |
| 22 | +++ b/t/op/threads.t |
| 23 | @@ -376,6 +376,9 @@ EOF |
| 24 | } |
| 25 | |
| 26 | |
| 27 | +SKIP: { |
| 28 | + skip "[perl #96272] avoid crash on GNU/kFreeBSD", 1 |
| 29 | + if $^O eq 'gnukfreebsd'; |
| 30 | # [perl #78494] Pipes shared between threads block when closed |
| 31 | { |
| 32 | my $perl = which_perl; |
| 33 | @@ -384,6 +387,7 @@ EOF |
| 34 | threads->create(sub { })->join; |
| 35 | ok(1, "Pipes shared between threads do not block when closed"); |
| 36 | } |
| 37 | +} |
| 38 | |
| 39 | # [perl #105208] Typeglob clones should not be cloned again during a join |
| 40 | { |