[perl #90456] variable self reference in regexp my $x = / $x / causes maximum recursion depth exceeded

[via RT]

# New Ticket Created by  Paweł Pabian 
# Please include the string:  [perl #90456]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=90456 >


[17:30] <bbkr_> std: my $x = / $x /; # hmm
[17:30] <p6eval> std 01c24ce: OUTPUT«ok 00:01 117m␤»
[17:31] <bbkr_> rakudo: my $x = / $x /; "" ~~ $x; # kabooom?
[17:31] <p6eval> rakudo 678ad3: OUTPUT«maximum recursion depth exceeded␤  in 
<anon> at line 22:/tmp/JEnOOsfLdh␤  in <anon> at line 22:/tmp/JEnOOsfLdh␤  in 
<anon> at line 22:/tmp/JEnOOsfLdh␤  in <anon> at line 22:/tmp/JEnOOsfLdh␤  in 
<anon> at line 22:/tmp/JEnOOsfLdh␤  in <anon> at line 22:/tmp/JEnOOsfLdh␤  in
[17:31] <p6eval> ..<anon> at …




[17:31] <TimToady> niecza: my $x = / $x /; "" ~~ $x; # kabooom?
[17:31] <p6eval> niecza v5-4-g2703ab0:  ( no output )
[17:31] <moritz> I guess it should just evaluate $x to Any at 
(non)-interpolation time
[17:32] <TimToady> pugs: my $x = / $x /; "" ~~ $x; # kabooom?
[17:32] <p6eval> pugs: OUTPUT«Error eval perl5: "if (!
$INC{'Pugs/Runtime/Match/HsBridge.pm'}) {␤    unshift 
@INC, '/home/p6eval/.cabal/share/Pugs-6.2.13.16/blib6/pugs/perl5/lib';␤    
eval q[require 'Pugs/Runtime/Match/HsBridge.pm'] or die 
$@;␤}␤'Pugs::Runtime::Match::HsBridge'␤"␤*** '<HANDLE>' trapped by operat…
[17:32] <moritz> perl6: my $x; my $re = rx/ $x /; $x = 'a'; say 'abc' ~~ $re
[17:32] <bbkr_> everything looks more atractive when there is explosion in 
background :)
[17:32] <p6eval> rakudo 678ad3, niecza v5-4-g2703ab0: OUTPUT«a␤»
[17:32] <p6eval> ..pugs: OUTPUT«Error eval perl5: "if (!
$INC{'Pugs/Runtime/Match/HsBridge.pm'}) {␤    unshift 
@INC, '/home/p6eval/.cabal/share/Pugs-6.2.13.16/blib6/pugs/perl5/lib';␤    
eval q[require 'Pugs/Runtime/Match/HsBridge.pm'] or die 
$@;␤}␤'Pugs::Runtime::Match::HsBridge'␤"␤*** '<HANDLE>' trapped by operat…
[17:33] <-- nymacro has left this server.
[17:33] <TimToady> perl6: my $x = rx/ $x /; $x = 'a'; say 'abc' ~~ $x
[17:34] <p6eval> rakudo 678ad3, niecza v5-4-g2703ab0: OUTPUT«Bool::False␤»
[17:34] <p6eval> ..pugs: OUTPUT«␤»
[17:34] <masak> bbkr_: feel free to report that one.