[perl #126234] LTA error message with junctions in type constraints

[via RT]

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


my Int|Str $a;
# OUTPUT«===SORRY!===␤Type 'Int' is not declared. Did yo mean 'int'?␤at 
/tmp/kuUWtnhKeF:1␤------> my Int⏏|Str 
$a;␤Malformed my␤ /tmp/kuUWtnhKeF:1␤------> my Int⏏|Str $a;␤
#
# Int is very much declared at that spot.

sub foo(Int|Str $a){};
# OUTPUT«===SORRY!===␤No compile-time value for Str␤»
#
# That may very well be true but ain't no helpful either.