Syntax check hanging with perl6 infix & regex

[richardh]

This code is correctly parsed:
use v6;
regex anint { <digit>+ $ };
proto infix:<add> (@left,@right) { ... };

This code hangs the syntax checker:
use v6;
proto infix:<add> (@left,@right) { ... };
regex anint { <digit>+ $ };

Not sure if this is Padre or STD.

Running under Ubuntu 9.08

This is perl, v5.10.0 built for i486-linux-gnu-thread-multi

$ perl -MWx -e'printf(qq(Wx Version=($Wx::VERSION) %s unicode=(%s)\n), Wx::wxVERSION_STRING(), Wx::wxUNICODE())'
Wx Version=(0.91) wxWidgets 2.8.9 unicode=(1)

[richardh]

just checked: it appears to be associated with STD not Padre. There is no problem with Rakudo.

[azawawi]

Yes it is definitely an STD.pm problem. Thanks for reporting it.

STD.pm warning/error:
Deep recursion on subroutine "Cursor::_AUTOLEXpeek" at C:/strawberry/perl/site/l
ib/Cursor.pm line 324.
Deep recursion on subroutine "Cursor::_AUTOLEXgen" at C:/strawberry/perl/site/li
b/Cursor.pm line 311.
Out of memory!

[azawawi]

TimToady? has fixed it in pugs r27632.

​http://perlcabal.org/svn/pugs/revision/?rev=27632

I will try to merge it soon.

[azawawi]

Fixed in r6341
Please upgrade S:H:P6 to 0.65 from CPAN or install it directly from Padre/Syntax?-Highlight-Perl6 repository.