GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Remove errant addition of backup file

This commit is contained in:
Pragmatic Software 2015-01-16 17:31:01 -08:00
parent 1a1f8f8e63
commit f552695393
1 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
modules/compiler_vm/languages/server/_c_base.pm_2015-01-15-01:25:37~
View File

@ -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(<FILE>) {
$result .= $_;
last if length $result >= 1024 * 20;
}
close(FILE);
$result =~ s/\s+$//;
$self->{output} .= $result;
}
1;