Skip to content

Commit 8eb832b

Browse files
committed
Remove some cruft
1 parent 51f48fb commit 8eb832b

File tree

1 file changed

+0
-18
lines changed

1 file changed

+0
-18
lines changed

evalbot.pl

Lines changed: 0 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -314,24 +314,6 @@ package Evalbot;
314314
return $str;
315315
}
316316

317-
sub filter_kp6 {
318-
my $str = shift;
319-
$str =~ s/KindaPerl6::Runtime.*//ms;
320-
return $str;
321-
}
322-
323-
sub filter_std {
324-
my $str = shift;
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-
335317
sub connected {
336318
my $bot = shift;
337319
$bot->say(who=>'nickserv',channel=>'msg',body=>"identify $bot->{__nickpass}") if exists $bot->{__nickpass};

0 commit comments

Comments
 (0)