my $source = $prog ? read_file $prog->path : $_{source_code};
unlink $prog->path if $prog;
my $private = (problem->private && !$_{contest}) ? 1 : 0;
my $source = $prog ? read_file $prog->path : $_{source_code};
unlink $prog->path if $prog;
my $private = (problem->private && !$_{contest}) ? 1 : 0;