aboutsummaryrefslogtreecommitdiff
path: root/lib/IRC/Grammar/Actions.pm6
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2015-12-31 13:23:17 -0500
committerZoffix Znet <cpan@zoffix.com>2015-12-31 13:23:17 -0500
commit938d734988bd99db66968698360a2a1a08f18025 (patch)
tree0f2f84760e8a94fdd7f2f78ac35a30c96437ae10 /lib/IRC/Grammar/Actions.pm6
parent2163e6413cf38126f4e96e2e9e00632542bea649 (diff)
Fix freeze up on broken messages
Diffstat (limited to 'lib/IRC/Grammar/Actions.pm6')
-rw-r--r--lib/IRC/Grammar/Actions.pm63
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>;
}