Implement new ‘use 5.xxx' plan

[perl5.git] / make_patchnum.pl

diff --git a/make_patchnum.pl b/make_patchnum.pl
index ac32808..fcbfc6c 100644 (file)
--- a/make_patchnum.pl
+++ b/make_patchnum.pl
@@ -17,7 +17,7 @@ make_patchnum.pl - make patchnum
 
 This program creates the files holding the information
 about locally applied patches to the source code. The created
 
 This program creates the files holding the information
 about locally applied patches to the source code. The created

-files are  C<git_version.h> and C<lib/Config_git.pl>.
+files are  F<git_version.h> and F<lib/Config_git.pl>.

 
 =head2 C<lib/Config_git.pl>
 
 
 =head2 C<lib/Config_git.pl>
 


@@ -133,7 +133,7 @@ if (my $patch_file= read_file(".patch")) {
 }
 elsif (-d "$srcdir/.git") {
     # git branch | awk 'BEGIN{ORS=""} /\*/ { print $2 }'
 }
 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");
     my ($remote,$merge);
     if (length $branch) {
         $merge= backtick("git config branch.$branch.merge");