From 4c9b5516e8c993b3b99fccf2829f5bde74899ac7 Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Wed, 7 Dec 2016 07:36:21 -0500
Subject: [PATCH] Reselect STDOUT upon exiting the eval

---
 lib/eval.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/eval.pl b/lib/eval.pl
index e515fbc..4fc0ef9 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -342,9 +342,11 @@ Biqsip biqsip 'ugh chan ghitlh lursa' nuh bey' ngun petaq qeng soj tlhej waqboch
         {
         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\n$code";
 		$ret = eval $code;
         }
+        select STDOUT;
 
 		local $Data::Dumper::Terse = 1;
 		local $Data::Dumper::Quotekeys = 0;