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

Update some plugin changes

Browse source
This commit is contained in:
Ryan Voots 2018-06-20 18:47:15 -04:00
parent 2eba1ab8b0
commit bac0883653
3 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
cpanfile
View file

@ -142,3 +142,4 @@ requires 'Unicode::UTF8';
requires 'List::Gather'; requires 'List::Gather';
requires 'Lingua::EN::Inflexion'; requires 'Lingua::EN::Inflexion';
requires 'local::lib'; requires 'local::lib';
requires 'Array::Utils';

4
plugins/perldoc.pm
View file

@ -25,7 +25,7 @@ sub {
$func = "-X" if ($func eq "-x"); #only case where it isn't lowercase, its easier to test at this point $func = "-X" if ($func eq "-x"); #only case where it isn't lowercase, its easier to test at this point
$url = "http://perldoc.perl.org/functions/".$func.".html" $url = "https://perldoc.pl/functions/".$func
} }
elsif ($said->{body} =~ /-m\s+(.*)\s*$/i) # got a module! elsif ($said->{body} =~ /-m\s+(.*)\s*$/i) # got a module!
{#http://search.cpan.org/search?query=foo%3ABar&mode=all {#http://search.cpan.org/search?query=foo%3ABar&mode=all
@ -47,7 +47,7 @@ sub {
{ #http://perldoc.perl.org/perlrun.html { #http://perldoc.perl.org/perlrun.html
if ($said->{body} =~ /\s*(\S+)\s*/) if ($said->{body} =~ /\s*(\S+)\s*/)
{ {
$url = "http://perldoc.perl.org/$1.html"; $url = "https://perldoc.pl/$1";
} }
else else
{ {

4
plugins/supereval.pm
View file

@ -49,7 +49,7 @@ sub new {
my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions; my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions;
$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->{aliases} = [ qw/jseval rkeval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval cpeval wscpeval swcpeval wcpeval scpeval bleval coboleval cbeval/, @perl_aliases ];
$self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db"); $self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
return $self; return $self;
@ -94,6 +94,8 @@ sub command {
'scp' => 'cperl', 'scp' => 'cperl',
'rk' => 'perl6', 'rk' => 'perl6',
'bl' => 'perl', 'bl' => 'perl',
'cb' => 'cobol',
'cobol' => 'cobol',
map {($_=>"perl$_", "w$_"=>"perl$_", "s$_" => "perl$_", "ws$_"=>"perl$_", "sw$_"=>"perl$_")} @versions map {($_=>"perl$_", "w$_"=>"perl$_", "s$_" => "perl$_", "ws$_"=>"perl$_", "sw$_"=>"perl$_")} @versions
); );