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

Revert "this should make for nicer output with an eval that ends in print"

Browse source 
This reverts commit 812b22ed95.
This commit is contained in:
Ryan Voots 2012-09-17 23:32:27 -04:00
parent 1d973c7c82
commit e21dc07a8f
1 changed files with 3 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lib/eval.pl
View file

@ -29,13 +29,6 @@ require MooseX::Declare;
eval "use MooseX::Declare; class Foo { has dongs => ( is => ro, isa => 'Int' ); };";
require "utf8_heavy.pl";
# save the old stdout, we're going to clobber it soon. STDOUT
my $oldout;
my $outbuffer;
my $outputcode;
open($oldout, ">&STDOUT") or die "Can't dup STDOUT: $!";
no warnings;
# This sub is defined here so that it is defined before the 'use charnames'
@ -161,9 +154,6 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
my $meg = $kilo * $kilo;
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: $!";
(
setrlimit(RLIMIT_VMEM, 1024*$meg, 1024*$meg)
and
@ -232,8 +222,6 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
j_code($code);
}
$oldout->print($outbuffer);
exit;
#-----------------------------------------------------------------------------
@ -243,10 +231,8 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
my( $code ) = @_;
local $@;
local @INC;
local $_;
# setup STDOUT for use in the eval. I should really try to hide these better but it can't cause any issues
local $_;
$code = "no strict; no warnings; package main; $code";
my $ret = eval $code;
@ -257,7 +243,8 @@ 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;
if( $@ ) { print "ERROR: $@" }
}