|
|
@ -75,6 +75,7 @@ while (<>) { |
|
|
|
$src{$src} = { |
|
|
|
$src{$src} = { |
|
|
|
BRANCH => [], |
|
|
|
BRANCH => [], |
|
|
|
TAG => [], |
|
|
|
TAG => [], |
|
|
|
|
|
|
|
R_BRANCH => [], |
|
|
|
GENERIC => [], |
|
|
|
GENERIC => [], |
|
|
|
# &1 == has HEAD. |
|
|
|
# &1 == has HEAD. |
|
|
|
# &2 == has others. |
|
|
|
# &2 == has others. |
|
|
@ -91,6 +92,11 @@ while (<>) { |
|
|
|
push @{$src{$src}{TAG}}, $1; |
|
|
|
push @{$src{$src}{TAG}}, $1; |
|
|
|
$src{$src}{HEAD_STATUS} |= 2; |
|
|
|
$src{$src}{HEAD_STATUS} |= 2; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
elsif (/^remote branch (.*)$/) { |
|
|
|
|
|
|
|
$origin = $1; |
|
|
|
|
|
|
|
push @{$src{$src}{R_BRANCH}}, $1; |
|
|
|
|
|
|
|
$src{$src}{HEAD_STATUS} |= 2; |
|
|
|
|
|
|
|
} |
|
|
|
elsif (/^HEAD$/) { |
|
|
|
elsif (/^HEAD$/) { |
|
|
|
$origin = $src; |
|
|
|
$origin = $src; |
|
|
|
$src{$src}{HEAD_STATUS} |= 1; |
|
|
|
$src{$src}{HEAD_STATUS} |= 1; |
|
|
@ -123,6 +129,8 @@ for my $src (@src) { |
|
|
|
} |
|
|
|
} |
|
|
|
push @this, andjoin("branch ", "branches ", |
|
|
|
push @this, andjoin("branch ", "branches ", |
|
|
|
$src{$src}{BRANCH}); |
|
|
|
$src{$src}{BRANCH}); |
|
|
|
|
|
|
|
push @this, andjoin("remote branch ", "remote branches ", |
|
|
|
|
|
|
|
$src{$src}{R_BRANCH}); |
|
|
|
push @this, andjoin("tag ", "tags ", |
|
|
|
push @this, andjoin("tag ", "tags ", |
|
|
|
$src{$src}{TAG}); |
|
|
|
$src{$src}{TAG}); |
|
|
|
push @this, andjoin("commit ", "commits ", |
|
|
|
push @this, andjoin("commit ", "commits ", |
|
|
|