From 746bdb56f289097c199c483025cc5427febae81e Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 18 Mar 2013 09:53:52 +0000 Subject: Handle case of no Received lines better git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@593 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede --- awm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'awm') 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'); -- cgit v1.2.3