From 72eb3c71ee671d3cd37941bbe8fae57e7bf78c1d Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Tue, 4 Apr 2017 11:31:15 -0400
Subject: [PATCH] localize some perlvars to prevent people from doing weird
 shit

---
 lib/eval.pl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/lib/eval.pl b/lib/eval.pl
index 219586b..891ef71 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -401,11 +401,16 @@ Biqsip biqsip 'ugh chan ghitlh lursa' nuh bey' ngun petaq qeng soj tlhej waqboch
         my @os = qw/aix bsdos darwin dynixptx freebsd haiku linux hpux irix next openbsd dec_osf svr4 sco_sv unicos unicosmk solaris sunos MSWin32 MSWin16 MSWin63 dos os2 cygwin VMS vos os390 os400 posix-bc riscos amigaos xenix/;
 
         {
-        local $^O = $os[rand()*@os];
-        no strict; no warnings; package main;
+          local $^O = $os[rand()*@os];
+          no strict; no warnings; package main;
 #        my $oldout;
-		$code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; use experimental 'declared_refs';\n#line 1 \"(IRC)\"\n$code";
-		$ret = eval $code;
+          do {
+            local $/;
+            local $\;
+            local $,;
+            $code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; use experimental 'declared_refs';\n#line 1 \"(IRC)\"\n$code";
+            $ret = eval $code;
+          }
         }
         select STDOUT;