diff options
| author | Dan Collins <dcollinsn@gmail.com> | 2016-07-14 16:23:52 -0400 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-21 09:09:44 +0200 |
| commit | 68ca57d4016864ee944c3741691eb79430c8c44f (patch) | |
| tree | ac943e5756fb2e5f69ffee1ed29a05a63557aa92 | |
| parent | 5422beb6e3e14c2ad0fbf99dc060c89dcaa36ad5 (diff) | |
| download | perl-68ca57d4016864ee944c3741691eb79430c8c44f.tar.gz | |
t/op/threads.t: tests for RT #41121
| -rw-r--r-- | t/op/threads.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/threads.t b/t/op/threads.t index 298db20211..99e69bde8a 100644 --- a/t/op/threads.t +++ b/t/op/threads.t @@ -9,7 +9,7 @@ BEGIN { skip_all_without_config('useithreads'); skip_all_if_miniperl("no dynamic loading on miniperl, no threads"); - plan(29); + plan(30); } use strict; @@ -416,5 +416,11 @@ $List[3] = $v; printf "%s,%s", @List[(3)], $List[3]; CODE +fresh_perl_like(<<'CODE', qr/ok/, {}, 'RT #41121 binmode(STDOUT,":encoding(utf8) does not crash'); +use threads; +binmode(STDOUT,":encoding(utf8)"); +threads->create(sub{}); +print "ok\n"; +CODE # EOF |