Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 6cd530395f
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (17 sloc) 0.388 kb
use strict; use warnings;
open my $realstderr, ">&STDERR";
open STDERR, ">&STDOUT";
use lib 'src';
while(1) {
my $line = <STDIN>;
require CompilerDriver;
CompilerDriver->import(':all');
last unless defined($line) && length($line);
eval $line;
if ($@) {
print $@;
syswrite $realstderr, 'E';
} else {
syswrite $realstderr, 'R';
}
}
Jump to Line
Something went wrong with that request. Please try again.