mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 11:42:35 +01:00
Remove errant addition of backup file
This commit is contained in:
parent
1a1f8f8e63
commit
f552695393
@ -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;
|
|
Loading…
Reference in New Issue
Block a user