In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9077509c9b9bc1871867a5fba4351b95c670298d?hp=40c852dee6a247b996f2c759f997f7c7c89a47b3>
- Log ----------------------------------------------------------------- commit 9077509c9b9bc1871867a5fba4351b95c670298d Author: David Mitchell <[email protected]> Date: Sat Jul 3 16:47:05 2010 +0100 make_patchnum.pl: handle not on a branch properly ----------------------------------------------------------------------- Summary of changes: make_patchnum.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/make_patchnum.pl b/make_patchnum.pl index ac32808..03cb54a 100644 --- a/make_patchnum.pl +++ b/make_patchnum.pl @@ -133,7 +133,7 @@ if (my $patch_file= read_file(".patch")) { } elsif (-d "$srcdir/.git") { # git branch | awk 'BEGIN{ORS=""} /\*/ { print $2 }' - ($branch) = map { /\* ([^(]\S*)/ ? $1 : () } backtick("git branch"); + ($branch) = map { /\* ([^(]\S*)/ ? $1 : "" } backtick("git branch"); my ($remote,$merge); if (length $branch) { $merge= backtick("git config branch.$branch.merge"); -- Perl5 Master Repository
