Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:45:40 -04:00
Code Issues Releases Wiki Activity

Setup perl6 stuff

Browse source
This commit is contained in:
Ryan Voots 2017-11-27 20:11:44 -05:00
parent 093af0cab8
commit 86d823af38
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
plugins/supereval.pm
View file

@ -25,7 +25,7 @@ sub new {
my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions;
$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval cpeval wscpeval swcpeval wcpeval scpeval/, @perl_aliases ];
$self->{aliases} = [ qw/jseval rkeval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval cpeval wscpeval swcpeval wcpeval scpeval bleval/, @perl_aliases ];
$self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
return $self;
@ -68,11 +68,15 @@ sub command {
'wscp' => 'cperl',
'wcp' => 'cperl',
'scp' => 'cperl',
'rk' => 'perl6',
'bl' => 'perl',
map {($_=>"perl$_", "w$_"=>"perl$_", "s$_" => "perl$_", "ws$_"=>"perl$_", "sw$_"=>"perl$_")} @versions
);
my $orig_type = $type;
$type = $translations{$type};
$type = "perl6" if ($orig_type =~ /^[ws]*$/i && $said->{channel} eq '#perl6');
if( not $type ) { $type = 'perl'; }
warn "Found $type: $code";