missing DATE_OF_02

Message-Id: <200106221825.TAA16884@tempest.npl.co.uk>

p4raw-id: //depot/perl@10897

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 7cab8c6..817e970 100644 (file)
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -3360,7 +3360,8 @@ sub read_metadata_cache {
                             # does initialize to some protocol
     $LAST_TIME = $cache->{last_time};
     $DATE_OF_02 = $cache->{DATE_OF_02};
-    $CPAN::Frontend->myprint("  Database was generated on $DATE_OF_02\n");
+    $CPAN::Frontend->myprint("  Database was generated on $DATE_OF_02\n")
+       if defined $DATE_OF_02; # An old cache may not contain DATE_OF_02
     return;
 }