1.1 --- a/l3-agent	Sat Feb 25 08:02:25 2006 +0200
     1.2 +++ b/l3-agent	Sat Feb 25 08:22:20 2006 +0200
     1.3 @@ -614,9 +614,7 @@
     1.4  sub print_command_lines
     1.5  {
     1.6      my $output_filename=$_[0];
     1.7 -    my $mode = ">";
     1.8 -    $mode =">>" if $Config{mode} eq "daemon";
     1.9 -    open(OUT, $mode, $output_filename)
    1.10 +    open(OUT, ">>", $output_filename)
    1.11          or die "Can't open $output_filename for writing\n";
    1.12  
    1.13  
    1.14 @@ -832,6 +830,10 @@
    1.15  #    результат выполнения в результирующий файл.
    1.16  #    После этого завершить работу.
    1.17  
    1.18 +# Очистим кэш-файл, если он существовал
    1.19 +        if (open (CACHE, ">", $Config{"cache"})) {
    1.20 +            close(CACHE);
    1.21 +        };
    1.22          for my $lab_log (split (/\s+/, $Config{"diffs"} || $Config{"input"})) {
    1.23              load_diff_files($lab_log);
    1.24          }