2 # Depends: libtimedate-perl
18 push @messages, ($message);
19 $dates{$message} = defined $date ? $date : $fromdate;
24 $fromdate =~ s/ +/ /g;
25 $fromdate = str2time $fromdate;
28 elsif (!(defined $date) && /^Date: (.*)/)
41 push @messages, ($message);
42 $dates{$message} = defined $date ? $date : $fromdate;
45 print (sort { $dates{$a} <=> $dates{$b} } @messages);