diff options
author | Zoffix Znet <cpan@zoffix.com> | 2015-12-31 13:23:17 -0500 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2015-12-31 13:23:17 -0500 |
commit | 938d734988bd99db66968698360a2a1a08f18025 (patch) | |
tree | 0f2f84760e8a94fdd7f2f78ac35a30c96437ae10 /lib/IRC/Grammar/Actions.pm6 | |
parent | 2163e6413cf38126f4e96e2e9e00632542bea649 (diff) |
Fix freeze up on broken messages
Diffstat (limited to 'lib/IRC/Grammar/Actions.pm6')
-rw-r--r-- | lib/IRC/Grammar/Actions.pm6 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/IRC/Grammar/Actions.pm6 b/lib/IRC/Grammar/Actions.pm6 index 469f8f8..e7f5292 100644 --- a/lib/IRC/Grammar/Actions.pm6 +++ b/lib/IRC/Grammar/Actions.pm6 @@ -10,7 +10,8 @@ method message ($/) { %args<who><host> = ~$pref<servername> if $pref<servername>.defined; my $p = $/<params>; - loop { + + for ^100 { # bail out after 100 iterations; we're stuck if ( $p<middle>.defined ) { %args<params>.append: ~$p<middle>; } |