--- Coro-6.57/Coro.pm	2020-07-29 13:08:58.000000000 +0000

+++ Coro-6.57/Coro.pm	2021-06-21 15:40:21.727350016 +0000

@@ -426,25 +426,25 @@

 =cut

 # ||= because other modules could have provided their own by now

-$idle ||= new Coro sub {

+$idle ||= Coro->new( sub {

    require Coro::Debug;

    die "FATAL: deadlock detected.\n"

        . Coro::Debug::ps_listing ();

-};

+});

 # this coro is necessary because a coro

 # cannot destroy itself.

 our @destroy;

 our $manager;

-$manager = new Coro sub {

+$manager = Coro->new(sub {

    while () {

       _destroy shift @destroy

          while @destroy;

       &schedule;

    }

-};

+});

 $manager->{desc} = "[coro manager]";

 $manager->prio (PRIO_MAX);

@@ -1057,7 +1057,7 @@

 # to reduce pressure on the coro pool (because most callbacks

 # return immediately and can be reused) and because we cannot cede

 # inside an event callback.

-our $unblock_scheduler = new Coro sub {

+our $unblock_scheduler = Coro->new(sub {

    while () {

       while (my $cb = pop @unblock_queue) {

          &async_pool (@$cb);

@@ -1069,7 +1069,7 @@

       }

       schedule; # sleep well

    }

-};

+});

 $unblock_scheduler->{desc} = "[unblock_sub scheduler]";

 sub unblock_sub(&) {

--- Coro-6.57/Coro/AnyEvent.pm.orig	2021-06-21 15:43:04.005609656 +0000

+++ Coro-6.57/Coro/AnyEvent.pm	2021-06-21 15:44:19.829927486 +0000

@@ -217,7 +217,7 @@

       # do the inefficient thing ourselves

       Coro::_set_readyhook \&_activity;

-      $IDLE = new Coro sub {

+      $IDLE = Coro->new(sub {

          my $_poll = AnyEvent->can ("_poll")

                   || AnyEvent->can ("one_event"); # AnyEvent < 6.0

@@ -225,7 +225,7 @@

             $_poll->();

             Coro::schedule if Coro::nready;

          }

-      };

+      });

       $IDLE->{desc} = "[AnyEvent idle process]";

       $Coro::idle = $IDLE;

--- Coro-6.57/Event/Event.pm.orig	2021-06-21 15:45:22.861697833 +0000

+++ Coro-6.57/Event/Event.pm	2021-06-21 15:45:54.173590215 +0000

@@ -190,12 +190,12 @@

 }

 # very inefficient

-our $IDLE = new Coro sub {

+our $IDLE = Coro->new(sub {

    while () {

       Event::one_event;

       Coro::schedule if Coro::nready;

    }

-};

+});

 $IDLE->{desc} = "[Event idle thread]";

 $Coro::idle = $IDLE;

--- Coro-6.57/Coro/Handle.pm.orig	2021-06-21 15:47:04.749093711 +0000

+++ Coro-6.57/Coro/Handle.pm	2021-06-21 15:47:39.171876058 +0000

@@ -77,7 +77,7 @@

 =cut

 sub unblock($) {

-   new_from_fh Coro::Handle $_[0]

+   Coro::Handle->new_from_fh($_[0]);

 }

 =item $fh->writable, $fh->readable

--- Coro-6.57/EV/EV.pm.orig	2021-06-21 15:48:55.018193100 +0000

+++ Coro-6.57/EV/EV.pm	2021-06-21 15:49:18.850350072 +0000

@@ -66,12 +66,12 @@

    XSLoader::load __PACKAGE__, $VERSION;

 }

-our $IDLE = new Coro sub {

+our $IDLE = Coro->new(sub {

    while () {

       &_loop_oneshot;

       Coro::schedule if Coro::nready;

    }

-};

+});

 $IDLE->{desc} = "[EV idle thread]";

 $Coro::idle = $IDLE;