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

Clean up output of deparse and eval

Browse source
This commit is contained in:
Ryan Voots 2016-06-25 20:09:02 -04:00
parent 7a507ee2c0
commit e470e471cd
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/eval.pl
View file

@ -91,6 +91,8 @@ no warnings;
$ret =~ s/ no warnings;//;
$ret =~ s/\s+/ /g;
$ret =~ s/\s*\}\s*$//;
$ret =~ s/\s*\$\^H\{[^}]+\}(\s+=\s+[^;]+;?)?\s*//g;
$ret =~ s/\s*BEGIN\s*\{\s*[^}]*\s*\}\s*/ /;
print STDOUT $ret;
}
@ -155,6 +157,8 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
my $code = do { local $/; <STDIN> };
# Kill @INC to shorten errors;
@INC = ();
# Close every other filehandle we may have open
# this is probably legacy code at this point since it was used