bug.pl: Handle mails with no date field better

diff --git a/CGI/bug.pl b/CGI/bug.pl
index fb871ab9e1ff915518e5d18c91022c4f17c0562e..3215880df29822d78e74476b3d023a3fdb599168 100755 (executable)
--- a/CGI/bug.pl
+++ b/CGI/bug.pl
@@ -114,8 +114,8 @@ die "Bad/unknown mode $mode" unless defined $handlers{$mode};
 $handlers{$mode}{Header}();
 
 sub msgcmp {
-    my $atime = $a->{present} ? $a->{date}->time : 0;
-    my $btime = $b->{present} ? $b->{date}->time : 0;
+    my $atime = $a->{present} && $a->{date} ? $a->{date}->time : 0;
+    my $btime = $b->{present} && $b->{date} ? $b->{date}->time : 0;
     return $atime <=> $btime;
 }