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

[nobody at bestpractical.com]

Author: clsung
Date: Thu Jul 24 05:56:56 2008
New Revision: 3007

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

Log:
- fix 'svk br --info' (w/o argument) possible problem

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Thu Jul 24 05:56:56 2008
@@ -729,7 +729,7 @@
     my ($self, @arg) = @_;
     @arg = ('') if $#arg < 0;
 
-    my ($proj,$target, $msg) = $self->locate_project($arg[0]);
+    my ($proj,$target, $msg) = $self->locate_project(pop @arg);
     if (!$proj) {
 	$logger->warn( loc($msg));
 	return ;
@@ -737,6 +737,7 @@
 
     undef $self->{recursive};
     $self->{local}++ if ($target->_to_pclass("/local")->subsumes($target->path));
+    push @arg, $self->dst_name($proj,$target->path);
     return map {$self->arg_co_maybe ($self->dst_path($proj,$_),'New mirror site not allowed here')} @arg;
 }