[svk-commit] r2944 - trunk/lib/SVK

[nobody at bestpractical.com]

Author: ruz
Date: Mon Jun 30 06:59:02 2008
New Revision: 2944

Modified:
   trunk/lib/SVK/XD.pm

Log:
* in SVK::XD::create_path_object if revision is not defined
  create checkout path with source pointing to revision this
  path checkouted from

Modified: trunk/lib/SVK/XD.pm
==============================================================================
--- trunk/lib/SVK/XD.pm	(original)
+++ trunk/lib/SVK/XD.pm	Mon Jun 30 06:59:02 2008
@@ -615,6 +615,8 @@
     if (defined (my $copath = delete $arg{copath_anchor})) {
 	require SVK::Path::Checkout;
 	my $report = delete $arg{report};
+        $arg{'revision'} = ($self->get_entry( $copath ))[0]->{'revision'}
+            unless defined $arg{'revision'};
 	return SVK::Path::Checkout->real_new
 	    ({ xd => $self,
 	       report => $report,