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

[nobody at bestpractical.com]

Author: clsung
Date: Tue May  6 21:08:47 2008
New Revision: 2811

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

Log:
- fix svk br --delete fails weirdly
  - http://task.hm/E9Y7

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Tue May  6 21:08:47 2008
@@ -328,7 +328,10 @@
 	    if is_uri ($_);
     }
 
-    return ($self->arg_co_maybe (''), @arg);
+    my $project_path = pop @arg if $#arg > 0;
+    # if specified project path at the end
+    $project_path = '' unless $project_path =~ m|^/([^/]*)(/.*?)/?$|;
+    return ($self->arg_co_maybe ($project_path), @arg);
 }