Handle case of no Received lines better

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@593 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede

1 files changed, 3 insertions, 2 deletions

diff --git a/awm b/awm
index 0f89936..8166509 100755
--- a/awm
+++ b/awm
@@ -139,8 +139,9 @@ sub gettime($) {
 	my $mail = new Mail::Internet($maillines);
 	my $header = $mail->head();
 	my $received = $header->get('Received', 0);
-	my ($date) = $received =~ /;([^;]+)$/ if defined $received;
-	my $time = parsedate($date) if defined $date;
+	my ($date, $time);
+	($date) = $received =~ /;([^;]+)$/ if defined $received;
+	$time = parsedate($date) if defined $date;
 	unless (defined $time) {
 		$QUIET or warn ("$PROGRAM_NAME: Falling back to date header in $file\n");
 		$date = $header->get('Date');