From 6d094f406f00d84aa74c01229eb58af2dcd879ad Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 6 Apr 2009 16:53:56 +0200
Subject: check date

---
 cpan-graph.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'cpan-graph.pl')

diff --git a/cpan-graph.pl b/cpan-graph.pl
index 797a0d5..c5de483 100755
--- a/cpan-graph.pl
+++ b/cpan-graph.pl
@@ -43,6 +43,8 @@ while ( my $dist = $dists->next ) {
 
     my $author = $sqlall->resultset( 'author' )->find( $dist->author );
     my ($year, $month, $day) = $dist->released =~ /^(\d{4})-(\d{2})-(\d{2})/;
+    next if (!defined $year || !defined $month || !defined $day);
+
     $map_package->update(
         {   tests_success => $tests_success,
             author        => $author->pauseid,
-- 
cgit v1.2.3