Attempt to squash warnings for undefined dates and add rudimentary ve…

…rsion sorting when dates are equal

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.

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 {

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' );