Fix test failure

Lesson learnt: After switching from threaded to unthreaded and fixing
the test, switch back again and re-run the test. :-)

diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t
index 18bbda9..403afa7 100644 (file)
--- a/ext/PerlIO-scalar/t/scalar.t
+++ b/ext/PerlIO-scalar/t/scalar.t
@@ -371,6 +371,6 @@ SKIP: {
   is scalar threads::async(sub { my $foo = $str; $foo })->join, "a",
     'scalars behind in-memory handles are cloned properly';
   print $fh "a";
-  is scalar async { print $fh "b"; $str }->join, "ab",
+  is scalar threads::async(sub { print $fh "b"; $str })->join, "ab",
     'printing to a cloned in-memory handle works';
 }