[perl #127491] erroneous sink of my ($a) = ...

[via RT]

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


class SinkCanary {
    method sink { note "SUNK!" }
}
{
    my ($a) = SinkCanary.new; # SUNK!
}

{
    my $b   = SinkCanary.new; # not sunk
}