diff --git a/modules/compiler_vm/languages/server/_c_base.pm_2015-01-15-01:25:37~ b/modules/compiler_vm/languages/server/_c_base.pm_2015-01-15-01:25:37~ deleted file mode 100755 index 554965b8..00000000 --- a/modules/compiler_vm/languages/server/_c_base.pm_2015-01-15-01:25:37~ +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -package _c_base; -use parent '_default'; - -sub postprocess { - my $self = shift; - - print "c11 postprocessing\n"; - - # no errors compiling, but if output contains something, it must be diagnostic messages - if(length $self->{output}) { - $self->{output} =~ s/^\s+//; - $self->{output} =~ s/\s+$//; - $self->{output} = "[$self->{output}]\n"; - } - - print "Executing gdb\n"; - my $input_quoted = quotemeta $self->{input}; - $input_quoted =~ s/\\"/"'\\"'"/g; - my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date}; ulimit -t 1; compiler_watchdog.pl $input_quoted > .output\""); - - $result = ""; - open(FILE, '.output'); - while() { - $result .= $_; - last if length $result >= 1024 * 20; - } - close(FILE); - - $result =~ s/\s+$//; - - $self->{output} .= $result; -} - -1;