[perl #132135] IO::Socket::Async's socket-port and peer-port are incorrect

[via RT]

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


[jdv@new-host-2 ~]$ perl6 -e 'start react whenever 
IO::Socket::Async.listen(<0.0.0.0>,8889) {say $_.socket-port; say 
$_.peer-port;}; sleep 1;IO::Socket::Async.connect(<0.0.0.0>,8889);sleep 
1;say qx{netstat -tan | grep 8889}'
47394
52436
tcp        0      0 0.0.0.0:8889            0.0.0.0:*               
LISTEN
tcp        0      0 127.0.0.1:8889          127.0.0.1:54476         
ESTABLISHED
tcp        0      0 127.0.0.1:54476         127.0.0.1:8889          
ESTABLISHED

[jdv@new-host-2 ~]$