From 582b6ffce5af4f7a6e40aa74d5b0143f6da00e8d Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Mon, 17 Sep 2012 23:32:05 -0400 Subject: [PATCH] this'll be reverted to test things --- lib/eval.pl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lib/eval.pl b/lib/eval.pl index 2befe44..a0fa4d9 100755 --- a/lib/eval.pl +++ b/lib/eval.pl @@ -32,9 +32,9 @@ require "utf8_heavy.pl"; # save the old stdout, we're going to clobber it soon. STDOUT my $oldout; -my $outbuffer; -my $outputcode; +my $outbuffer = ""; open($oldout, ">&STDOUT") or die "Can't dup STDOUT: $!"; +$oldout->print("penis\n"); no warnings; @@ -162,7 +162,9 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem my $limit = 150 * $meg; # clobber stdout before we set rlimits. otherwise we can't do anything STDOUT - open(STDOUT, ">", \$outbuffer) or die "Can't dup to buffer: $!"; + open(my $stdh, ">", \$outbuffer) + or die "Can't dup to buffer: $!"; + *STDOUT = $stdh; ( setrlimit(RLIMIT_VMEM, 1024*$meg, 1024*$meg) @@ -232,7 +234,8 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem j_code($code); } - $oldout->print($outbuffer); + *STDOUT = $oldout; + print($outbuffer); exit; @@ -257,7 +260,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem my $out = ref($ret) ? Dumper( $ret ) : "" . $ret; - print $out unless $outbuffer; + print $out; # unless $outbuffer; if( $@ ) { print "ERROR: $@" } }