From 8a9b334269a5ae02b9038d7c44dc25e829a4734a Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Fri, 5 May 2017 00:34:58 -0400 Subject: [PATCH] No more hack for perl4! --- lib/eval.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lib/eval.pl b/lib/eval.pl index 1771725..33a070b 100755 --- a/lib/eval.pl +++ b/lib/eval.pl @@ -329,12 +329,12 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem }; my $code; - if ($type ne 'perl4') { # Perl 4 has special needs. It rides on the short bus. +# if ($type ne 'perl4') { # Perl 4 has special needs. It rides on the short bus. $code = do {local $/; }; # redirect STDIN to /dev/null, to avoid warnings in convoluted cases. # we have to leave this open for perl4, so only do this for other systems open STDIN, '<', '/dev/null' or die "Can't open /dev/null: $!"; - } +# } # print Dumper({type => $type, code => $code}); @@ -533,11 +533,10 @@ Biqsip biqsip 'ugh chan ghitlh lursa' nuh bey' ngun petaq qeng soj tlhej waqboch } '; - print STDERR "About to exec: ", $exec_map{'perl'.$version}{bin}, "\n"; unless ($version eq '4') { exec($exec_map{'perl'.$version}{bin}, '-e', $wrapper) or die "Exec failed $!"; } else { - exec($exec_map{'perl'.$version}{bin}, '-'); # the code for perl4 is actually still in STDIN, if we try to -e it needs to write files + exec($exec_map{'perl'.$version}{bin}, '-e', $code); # the code for perl4 is actually still in STDIN, if we try to -e it needs to write files } }