Fix regex to allow usernames contain zeroes ・ 859f86f ・ Gitprep

+1 -1

script/gitprep-shell-raw

@@ -78,7 +78,7 @@ sub parse_ssh_original_command {
   $ssh_original_command ||= '';
 
   my $git_commands = "git-upload-pack|git-receive-pack|git-upload-archive";
-  if ($ssh_original_command =~ m(^($git_commands) '.*/([a-zA-Z1-9_]+)/([^\/]+?)\.git'$)) {
+  if ($ssh_original_command =~ m(^($git_commands) '.*/([a-zA-Z0-9_]+)/([^\/]+?)\.git'$)) {
     my ($verb, $user_id, $project_id) = ($1, $2, $3);
     warn "User:$user_id, Project:$project_id" if $debug;
     die "invalid repo name: '$project_id'\n" if $project_id !~ $project_re;

...	...	@@ -78,7 +78,7 @@ sub parse_ssh_original_command {
78	78	$ssh_original_command \|\|= '';
79	79
80	80	my $git_commands = "git-upload-pack\|git-receive-pack\|git-upload-archive";
81		- if ($ssh_original_command =~ m(^($git_commands) '.*/([a-zA-Z1-9_]+)/([^\/]+?)\.git'$)) {
	81	+ if ($ssh_original_command =~ m(^($git_commands) '.*/([a-zA-Z0-9_]+)/([^\/]+?)\.git'$)) {
82	82	my ($verb, $user_id, $project_id) = ($1, $2, $3);
83	83	warn "User:$user_id, Project:$project_id" if $debug;
84	84	die "invalid repo name: '$project_id'\n" if $project_id !~ $project_re;