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

[nobody at bestpractical.com]

Author: clsung
Date: Sun May  4 20:07:44 2008
New Revision: 2787

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

Log:
- ':' removed

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Sun May  4 20:07:44 2008
@@ -552,7 +552,7 @@
 	{
 	    my $ans = get_prompt(
 		loc("It has no trunk, where is the trunk/? (press enter to use %1)\n=>", $trunk_path),
-		qr/^(?:\/?[A-Za-z][-+.A-Za-z0-9]*:|$)/
+		qr/^(?:\/?[A-Za-z][-+.A-Za-z0-9]*|$)/
 
 	    );
 	    if (length($ans)) {
@@ -564,8 +564,9 @@
 	{
 	    my $ans = get_prompt(
 		loc("And where is the branches/? (%1)\n=> ", $branch_path),
-		qr/^(?:\/?[A-Za-z][-+.A-Za-z0-9]*:|$)/
+		qr/^(?:\/?[A-Za-z][-+.A-Za-z0-9]*|$)/
 	    );
+	    warn $ans;
 	    if (length($ans)) {
 		$branch_path = $ans;
 		last;
@@ -575,7 +576,7 @@
 	{
 	    my $ans = get_prompt(
 		loc("And where is the tags/? (%1) (or 's' to skip)", $tag_path),
-		qr/^(?:\/?[A-Za-z][-+.A-Za-z0-9]*:|$)/
+		qr/^(?:\/?[A-Za-z][-+.A-Za-z0-9]*|$)/
 	    );
 	    if (length($ans)) {
 		$tag_path = $ans;