From: wreis <wallace@reis.org.br>
Date: Wed, 3 Nov 2010 11:53:33 +0000 (-0300)
Subject: Fix B::Index->_backpan_index_has_changed check for remote_mod_time
X-Git-Tag: 0.14~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FBackPAN-Web.git;a=commitdiff_plain;h=55f9d76f353bbdb5f60c6eae01f7aba16dd4dd96

Fix B::Index->_backpan_index_has_changed check for remote_mod_time
---

diff --git a/lib/BackPAN/Index.pm b/lib/BackPAN/Index.pm
index 15cbbf9..df104fe 100644
--- a/lib/BackPAN/Index.pm
+++ b/lib/BackPAN/Index.pm
@@ -367,7 +367,7 @@ sub _backpan_index_has_changed {
     $self->_backpan_index_file->touch;
 
     my(undef, undef, $remote_mod_time) = head($self->backpan_index_url);
-    return $remote_mod_time > $local_mod_time;
+    return defined $remote_mod_time && $remote_mod_time > $local_mod_time;
 }