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

[nobody at bestpractical.com]

Author: clsung
Date: Sun May  4 20:48:17 2008
New Revision: 2790

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

Log:
- prompt to ask project_name

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Sun May  4 20:48:17 2008
@@ -552,6 +552,16 @@
 	}
 	{
 	    my $ans = get_prompt(
+		loc("Specify a project name (enter to use '%1'): ", $project_name),
+		qr/^(?:[A-Za-z][-+_A-Za-z0-9]*|$)/
+	    );
+	    if (length($ans)) {
+		$project_name = $ans;
+		last;
+	    }
+	}
+	{
+	    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]*|$)/