1.1 --- a/l3-agent	Mon Feb 20 17:52:40 2006 +0200
     1.2 +++ b/l3-agent	Thu Feb 23 22:26:38 2006 +0200
     1.3 @@ -228,9 +228,10 @@
     1.4      my $cline_re2_v2 = qr/$cline_re_v2_base$/sx;
     1.5  
     1.6      my $vt = Term::VT102->new ( 'cols' => $Config{"terminal_width"}, 
     1.7 -                    'rows' => $Config{"terminal_height"});
     1.8 -    my $cline_vt = Term::VT102->new ('cols' => $Config{"terminal_width"}, 
     1.9 -                    'rows' => $Config{"terminal_height"});
    1.10 +                                'rows' => $Config{"terminal_height"});
    1.11 +    my $cline_vt = Term::VT102->new (
    1.12 +                                'cols' => $Config{"terminal_width"}, 
    1.13 +                                'rows' => $Config{"terminal_height"});
    1.14  
    1.15      my $converter = Text::Iconv->new($Config{"encoding"}, "utf-8")
    1.16          if ($Config{"encoding"} && $Config{"encoding"} !~ /^utf-8$/i);
    1.17 @@ -484,7 +485,7 @@
    1.18  
    1.19  
    1.20                  if ($Config{verbose} =~ /y/i) {
    1.21 -                    print "|   " if $commandlines_loaded % 15 == 1;
    1.22 +                    print "\n|   " if $commandlines_loaded % 15 == 1;
    1.23                      print " ",$cl{"last_command"};
    1.24                  }
    1.25  
    1.26 @@ -578,11 +579,12 @@
    1.27      }
    1.28  
    1.29      @Command_Lines_Index = sort {
    1.30 -        $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"} ||
    1.31 -        $Command_Lines[$index[$a]]->{"day"} cmp $Command_Lines[$index[$b]]->{"day"} ||
    1.32 -        $Command_Lines[$index[$a]]->{"hour"} <=> $Command_Lines[$index[$b]]->{"hour"} ||
    1.33 -        $Command_Lines[$index[$a]]->{"min"} <=> $Command_Lines[$index[$b]]->{"min"} ||
    1.34 -        $Command_Lines[$index[$a]]->{"sec"} <=> $Command_Lines[$index[$b]]->{"sec"}
    1.35 +        defined($Command_Lines[$index[$a]]->{"time"}) 
    1.36 +        ?  $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"} 
    1.37 +        :  $Command_Lines[$index[$a]]->{"day"} cmp $Command_Lines[$index[$b]]->{"day"} 
    1.38 +        || $Command_Lines[$index[$a]]->{"hour"} <=> $Command_Lines[$index[$b]]->{"hour"}
    1.39 +        || $Command_Lines[$index[$a]]->{"min"} <=> $Command_Lines[$index[$b]]->{"min"} 
    1.40 +        || $Command_Lines[$index[$a]]->{"sec"} <=> $Command_Lines[$index[$b]]->{"sec"}
    1.41      } @index;
    1.42  
    1.43      print "finished\n" if $Config{"verbose"} =~ /y/;