[Bps-public-commit] r11682 - in Prophet/trunk: .

[jesse at bestpractical.com]

Author: jesse
Date: Fri Apr 11 12:25:22 2008
New Revision: 11682

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Replica.pm

Log:
 r29600 at 31b:  jesse | 2008-04-11 12:25:18 -0400
  * no longer fail to fail in traverse_changesets if most_recent_changeset isn't implemented


Modified: Prophet/trunk/lib/Prophet/Replica.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Replica.pm	(original)
+++ Prophet/trunk/lib/Prophet/Replica.pm	Fri Apr 11 12:25:22 2008
@@ -490,8 +490,11 @@
     );
 
     my $first_rev = ( $args{'after'} + 1 ) || 1;
+    my $last_rev = $self->most_recent_changeset();
+
+
     die "you must implement most_recent_changeset in " . ref($self) . ", or override traverse_changesets"
-        unless $self->can('most_recent_changeset');
+        unless defined $last_rev;
 
     for my $rev ( $first_rev .. $self->most_recent_changeset ) {
         $args{callback}->( $self->fetch_changeset($rev) );
@@ -660,7 +663,7 @@
 
 =cut
 
-sub most_recent_changeset { }
+sub most_recent_changeset {return undef }
 
 =head2 fetch_changeset SEQUENCE_NO