We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 51f48fb commit 8eb832bCopy full SHA for 8eb832b
evalbot.pl
@@ -314,24 +314,6 @@ package Evalbot;
314
return $str;
315
}
316
317
- sub filter_kp6 {
318
- my $str = shift;
319
- $str =~ s/KindaPerl6::Runtime.*//ms;
320
- return $str;
321
- }
322
-
323
- sub filter_std {
324
325
- if($str =~ /PARSE FAILED/) {
326
- my @lines = grep {!/-+>/ && !/PARSE FAILED/} split /\n/, $str;
327
- return join '', @lines;
328
- } elsif($str =~ /Out of memory!/) {
329
- return 'Out of memory!';
330
- } else {
331
- return "parse OK";
332
333
334
335
sub connected {
336
my $bot = shift;
337
$bot->say(who=>'nickserv',channel=>'msg',body=>"identify $bot->{__nickpass}") if exists $bot->{__nickpass};
0 commit comments