From 9d8bdc78362a893f0e9504ca4a7131223d0c7b63 Mon Sep 17 00:00:00 2001
From: Brian Cassidy <bricas@cpan.org>
Date: Fri, 11 Feb 2011 16:04:54 -0400
Subject: [PATCH] Attempt to squash warnings for undefined dates and add
 rudimentary version sorting when dates are equal

---
 Changes             | 5 +++++
 lib/CPAN/Changes.pm | 7 +++++--
 t/self.t            | 2 +-
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 4f6558b..e6fbdc7 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for perl module CPAN::Changes
 
+0.05 TO BE RELEASED
+
+  - Attempt to squash warnings for undefined dates and add rudimentary
+    version sorting when dates are equal
+
 0.04 2011-02-10
 
   - Remove done_testing() from a test.
diff --git a/lib/CPAN/Changes.pm b/lib/CPAN/Changes.pm
index 0f01be9..4b90524 100644
--- a/lib/CPAN/Changes.pm
+++ b/lib/CPAN/Changes.pm
@@ -7,7 +7,7 @@ use CPAN::Changes::Release;
 use Text::Wrap   ();
 use Scalar::Util ();
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 sub new {
     my $class = shift;
@@ -121,7 +121,10 @@ sub releases {
         $self->add_release( @_ );
     }
 
-    return sort { $a->date cmp $b->date } values %{ $self->{ releases } };
+    return sort {
+        ( $a->date || '' ) cmp( $b->date || '' )
+            || $a->version cmp $b->version
+    } values %{ $self->{ releases } };
 }
 
 sub add_release {
diff --git a/t/self.t b/t/self.t
index fb24118..2113eed 100644
--- a/t/self.t
+++ b/t/self.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 use_ok( 'CPAN::Changes' );