[perl #73994] [BUG] Wrong multiplicative default when doing infix:<*=> on an undefined value in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #73994]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=73994 >


<moritz_> rakudo: my $x; say $x * 3
<p6eval> rakudo 63ff06: OUTPUT«0␤»
<masak> no warning?
<moritz_> alpha: my $x; say $x * 3
<p6eval> alpha 30e0ed: OUTPUT«Use of uninitialized value␤0␤»
<masak> there we go.
<moritz_> masak: there's already a ticket for it
<moritz_> for warnings with undefined values
<masak> then I won't submit one :P
<moritz_> alpha: my $x; $x *= 4; say $x
<p6eval> alpha 30e0ed: OUTPUT«4␤»
<moritz_> rakudo: my $x; $x *= 4; say $x
<p6eval> rakudo 1c5737: OUTPUT«0␤»
<moritz_> now that's a more interesting regression
<moritz_> rakudo: say infix:<*>()
<p6eval> rakudo 1c5737: OUTPUT«1␤»
<masak> moritz_: is there a ticket for the more interesting regression?
<moritz_> masak: not that I'm aware of
* masak submits one