$NetBSD$

--- mirmon.orig	2006-07-20 11:03:07.000000000 +0200
+++ mirmon
@@ -1116,6 +1116,7 @@ sub get_date 
     unless ( defined $time ) { return err $url, 'no time' ; }
 
     $time = ( split ' ', $time ) [ 0 ] ;
+    $time = '' unless defined $time;
 
     if ( $time eq '' )
       { err $url, "empty" ; }
