[svk-commit] r2937 - trunk/lib/SVK/Command

[nobody at bestpractical.com]

Author: clsung
Date: Sat Jun 28 04:15:44 2008
New Revision: 2937

Modified:
   trunk/lib/SVK/Command/Branch.pm

Log:
- fix http://task.hm/F96M, to ensure the depot is really a mirrored path.

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Sat Jun 28 04:15:44 2008
@@ -703,7 +703,9 @@
 
     my $local_root = $self->arg_depotpath('/'.$target->depot->depotname.'/');
     my ($trunk_path, $branch_path, $tag_path, $project_name, $preceding_path);
-    my $source_root = $target->is_mirrored->_backend->source_root;
+    my $m = $target->is_mirrored;
+    die loc("%1 is not a mirrored path.\n", $target->depotpath) if !$m;
+    my $source_root = $m->_backend->source_root;
     my $url = $target->is_mirrored->url;
 
     for my $path ($target->depot->mirror->entries) {