[svk-commit] r2541 - in branches/svk-info/lib/SVK: .

[nobody at bestpractical.com]

Author: clsung
Date: Mon Oct  8 00:27:04 2007
New Revision: 2541

Modified:
   branches/svk-info/lib/SVK/Mirror.pm
   branches/svk-info/lib/SVK/Mirror/Backend/SVNRa.pm

Log:
- get_latest_revnum(), return latest revision on remote server

Modified: branches/svk-info/lib/SVK/Mirror.pm
==============================================================================
--- branches/svk-info/lib/SVK/Mirror.pm	(original)
+++ branches/svk-info/lib/SVK/Mirror.pm	Mon Oct  8 00:27:04 2007
@@ -354,6 +354,11 @@
     goto \&find_changeset;
 }
 
+sub get_latest_revnum {
+    my $self = shift;
+    return $self->_backend->get_latest_revnum();
+}
+
 sub get_merge_back_editor {
     my $self = shift;
     return ($self->_backend->fromrev, $self->get_commit_editor(@_));

Modified: branches/svk-info/lib/SVK/Mirror/Backend/SVNRa.pm
==============================================================================
--- branches/svk-info/lib/SVK/Mirror/Backend/SVNRa.pm	(original)
+++ branches/svk-info/lib/SVK/Mirror/Backend/SVNRa.pm	Mon Oct  8 00:27:04 2007
@@ -472,6 +472,14 @@
     die $@ if $@;
 }
 
+sub get_latest_revnum {
+    my $self = shift;
+    my $ra = $self->_new_ra;
+    my $latest_rev = $ra->get_latest_revnum();
+    $self->_ra_finished($ra);
+    return $latest_rev;
+}
+
 =item sync_changeset($changeset, $metadata, $ra, $extra_prop, $callback )
 
 =cut