[perl #122468] No such method 'payload' for invocant of type 'Str'

[via RT]

# New Ticket Created by  Will Coleda 
# Please include the string:  [perl #122468]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=122468 >


On macosx/moar, I'm seeing the following failure:

$ prove -v -e t/fudgeandrun t/spec/S32-io/IO-Socket-Async.t
t/spec/S32-io/IO-Socket-Async.t ..
1..6
Unhandled exception in code scheduled on thread 4537700352
No such method 'payload' for invocant of type 'Str'
  in block  at t/spec/S32-io/IO-Socket-Async.rakudo.moar:12
  in block  at src/gen/m-CORE.setting:19435
  in method quit at src/gen/m-CORE.setting:18684
  in block  at src/gen/m-CORE.setting:20205
  in block  at src/gen/m-CORE.setting:18179
  in block  at src/gen/m-CORE.setting:18176

Test failing is:

try {
    my $sync = Promise.new;
    IO::Socket::Async.listen('veryunlikelyhostname.bogus', $port).tap(quit => {
        is $_.payload, 'Failed to resolve host name', 'Async listen on
bogus hostname';
        $sync.keep(1);
    });
    await $sync;
}

-- 
Will "Coke" Coleda