lilalo

diff l3-agent @ 83:bdc1f02d3f87

исправлена ошибка с подсказкой в приглашении
author devi
date Fri Feb 24 18:43:35 2006 +0200 (2006-02-24)
parents d9a700d48bef
children 2cb912bff2ea
line diff
     1.1 --- a/l3-agent	Thu Feb 23 22:26:38 2006 +0200
     1.2 +++ b/l3-agent	Fri Feb 24 18:43:35 2006 +0200
     1.3 @@ -127,7 +127,6 @@
     1.4              next if ($diff->{"local_session_id"} 
     1.5                      && $cl->{"local_session_id"} 
     1.6                      && ($cl->{"local_session_id"} ne $diff->{"local_session_id"}));
     1.7 -            print "diff of my session found\n";
     1.8  
     1.9              next if ($diff->{"day"} && $cl->{"day"} && ($cl->{"day"} ne $diff->{"day"}));
    1.10  
    1.11 @@ -292,7 +291,8 @@
    1.12  
    1.13          $file =~ m@.*/(.*?)-.*@;
    1.14  
    1.15 -        print "\n+- processing file $file\n" if $Config{"verbose"} =~/y/;
    1.16 +        print "\n+- processing file $file\n|   " 
    1.17 +            if $Config{"verbose"} =~/y/;
    1.18  
    1.19          my $tty = $1;
    1.20          my $first_pass = 1;
    1.21 @@ -485,7 +485,7 @@
    1.22  
    1.23  
    1.24                  if ($Config{verbose} =~ /y/i) {
    1.25 -                    print "\n|   " if $commandlines_loaded % 15 == 1;
    1.26 +                    print "\n|   " if $commandlines_loaded % 5 == 1;
    1.27                      print " ",$cl{"last_command"};
    1.28                  }
    1.29