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

Add 5.5-5.8 and update help

Browse source
This commit is contained in:
Ryan Voots 2017-04-01 15:43:38 -04:00
parent c63356fa7b
commit c9d93a88cc
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/eval.pl
View file

@ -407,6 +407,9 @@ Biqsip biqsip 'ugh chan ghitlh lursa' nuh bey' ngun petaq qeng soj tlhej waqboch
my ($version, $code) = @_;
my %vmap = (
'5.5' => '/perl5/perlbrew/perls/perl-5.005_04/bin/perl',
'5.6' => '/perl5/perlbrew/perls/perl-5.6.2/bin/perl',
'5.8' => '/perl5/perlbrew/perls/perl-5.8.9/bin/perl',
'5.10' => '/perl5/perlbrew/perls/perl-5.10.1/bin/perl',
'5.12' => '/perl5/perlbrew/perls/perl-5.12.5/bin/perl',
'5.14' => '/perl5/perlbrew/perls/perl-5.14.4/bin/perl',

7
plugins/eval.pm
View file

@ -11,6 +11,8 @@ use strict;
no warnings 'void';
my @versions = ('', qw(5.5 5.6 5.8 5.10 5.12 5.14 5.16 5.18 5.20 5.22 5.24));
sub new {
my( $class ) = @_;
@ -20,7 +22,6 @@ sub new {
command => 1,
};
my @versions = ('', qw(5.10 5.12 5.14 5.16 5.18 5.20 5.22 5.24));
my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions;
$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse k20eval rbeval pyeval luaeval/, @perl_aliases ];
@ -40,8 +41,6 @@ sub command {
$type =~ s/^\s*(\w+?)?eval(.*)?/$1$2/;
warn "Initial type: $type\n";
my @versions = ('', qw(5.10 5.12 5.14 5.16 5.18 5.20 5.22 5.24));
my %translations = (
js => 'javascript',
perl => 'perl',
@ -114,4 +113,4 @@ sub command {
"Bot::BB3::Plugin::Eval";
__DATA__
The eval plugin. Evaluates various different languages. Syntax, eval: code; also pleval deparse rbeval jseval pyeval phpeval k20eval luaeval jeval.
The eval plugin. Evaluates various different languages. Syntax, eval: code; also pleval deparse. You can use different perl versions by doing eval5.X, e.g. eval5.5: print "$]"; You can also add s or w to the eval to quickly add strict or warnings. sweval: print $foo;