From 00a54e229a53f17d4dcfc04ddf304d690a4e321d Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Fri, 15 Jul 2016 18:07:09 -0400
Subject: [PATCH] add warning eval

---
 plugins/eval.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/plugins/eval.pm b/plugins/eval.pm
index 09b778b..59b7731 100644
--- a/plugins/eval.pm
+++ b/plugins/eval.pm
@@ -19,7 +19,7 @@ sub new {
 	$self->{opts} = {
 		command => 1,
 	};
-	$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse k20eval rbeval pyeval luaeval/ ];
+	$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse k20eval rbeval pyeval luaeval weval/ ];
     $self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
 
 	return $self;
@@ -31,6 +31,7 @@ sub command {
 	my $code = $said->{"body"};
     my $dbh = $self->{dbh};
 
+    my $command = $said->{command_match};
 	my $type = $said->{command_match};
 	$type =~ s/^\s*(\w+?)eval/$1/;
 	warn "Initial type: $type\n";
@@ -48,12 +49,17 @@ sub command {
 		'python' => 'python',
 		'lua' => 'lua',
 		'j' => 'j',
+        'w' => 'perl',
 	);
 
 	$type = $translations{$type};
 	if( not $type ) { $type = 'perl'; }
 	warn "Found $type: $code";
 
+    if ($command eq 'weval') {
+        $code = "use warnings; ".$code;
+    }
+
 	my $filter = POE::Filter::Reference->new();
 	my $socket = IO::Socket::INET->new(  PeerAddr => 'localhost', PeerPort => '14400' )
 		or die "error: cannot connect to eval server";