# HG changeset patch # User devi # Date 1140849095 -7200 # Node ID 3058ada85a582dd01dbaa305c5cf34f76bbc54fa # Parent 3f92cd706473d03f80abcf9befba3e431a36e85d Сортировка командных строк выполняется только по известным временным параметрам. Добавлена проверка определённости параметров diff -r 3f92cd706473 -r 3058ada85a58 l3-agent --- a/l3-agent Sat Feb 25 08:22:20 2006 +0200 +++ b/l3-agent Sat Feb 25 08:31:35 2006 +0200 @@ -582,14 +582,22 @@ } @Command_Lines_Index = sort { - defined($Command_Lines[$index[$a]]->{"time"}) + defined($Command_Lines[$index[$a]]->{"time"}) + && defined($Command_Lines[$index[$b]]->{"time"}) ? $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"} : defined($Command_Lines[$index[$a]]->{"day"}) - ? $Command_Lines[$index[$a]]->{"day"} cmp $Command_Lines[$index[$b]]->{"day"} - || $Command_Lines[$index[$a]]->{"hour"} <=> $Command_Lines[$index[$b]]->{"hour"} - || $Command_Lines[$index[$a]]->{"min"} <=> $Command_Lines[$index[$b]]->{"min"} - || $Command_Lines[$index[$a]]->{"sec"} <=> $Command_Lines[$index[$b]]->{"sec"} - : 0 + && defined($Command_Lines[$index[$b]]->{"day"}) + && defined($Command_Lines[$index[$a]]->{"hour"}) + && defined($Command_Lines[$index[$b]]->{"hour"}) + && defined($Command_Lines[$index[$a]]->{"min"}) + && defined($Command_Lines[$index[$b]]->{"min"}) + && defined($Command_Lines[$index[$a]]->{"sec"}) + && defined($Command_Lines[$index[$b]]->{"sec"}) + ? $Command_Lines[$index[$a]]->{"day"} cmp $Command_Lines[$index[$b]]->{"day"} + || $Command_Lines[$index[$a]]->{"hour"} <=> $Command_Lines[$index[$b]]->{"hour"} + || $Command_Lines[$index[$a]]->{"min"} <=> $Command_Lines[$index[$b]]->{"min"} + || $Command_Lines[$index[$a]]->{"sec"} <=> $Command_Lines[$index[$b]]->{"sec"} + : 0 } @index; print "finished\n" if $Config{"verbose"} =~ /y/;