Skip to content

Commit

Permalink
Remove some cruft
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Feb 22, 2015
1 parent 51f48fb commit 8eb832b
Showing 1 changed file with 0 additions and 18 deletions.
18 changes: 0 additions & 18 deletions evalbot.pl
Original file line number Diff line number Diff line change
Expand Up @@ -314,24 +314,6 @@ package Evalbot;
return $str;
}

sub filter_kp6 {
my $str = shift;
$str =~ s/KindaPerl6::Runtime.*//ms;
return $str;
}

sub filter_std {
my $str = shift;
if($str =~ /PARSE FAILED/) {
my @lines = grep {!/-+>/ && !/PARSE FAILED/} split /\n/, $str;
return join '', @lines;
} elsif($str =~ /Out of memory!/) {
return 'Out of memory!';
} else {
return "parse OK";
}
}

sub connected {
my $bot = shift;
$bot->say(who=>'nickserv',channel=>'msg',body=>"identify $bot->{__nickpass}") if exists $bot->{__nickpass};
Expand Down

0 comments on commit 8eb832b

Please sign in to comment.