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

Revert "this'll be reverted to test things"

Browse source 
This reverts commit dfa2ec4d4e.
This commit is contained in:
Ryan Voots 2012-09-17 23:32:17 -04:00
parent 582b6ffce5
commit 1d973c7c82
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/eval.pl
View file

@ -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 $outbuffer;
my $outputcode;
open($oldout, ">&STDOUT") or die "Can't dup STDOUT: $!";
$oldout->print("penis\n");
no warnings;
@ -162,9 +162,7 @@ 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(my $stdh, ">", \$outbuffer)
or die "Can't dup to buffer: $!";
*STDOUT = $stdh;
open(STDOUT, ">", \$outbuffer) or die "Can't dup to buffer: $!";
(
setrlimit(RLIMIT_VMEM, 1024*$meg, 1024*$meg)
@ -234,8 +232,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
j_code($code);
}
*STDOUT = $oldout;
print($outbuffer);
$oldout->print($outbuffer);
exit;
@ -260,7 +257,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: $@" }
}