diff options
| author | Gisle Aas <gisle@aas.no> | 2010-03-02 20:42:39 +0100 |
|---|---|---|
| committer | Gisle Aas <gisle@aas.no> | 2010-03-07 16:47:26 +0100 |
| commit | 691ce773f92d2810db171a8ff46c3dd0196abfb5 (patch) | |
| tree | 82203c045eda994772e2a6ecf98689887b42dfc0 /make_patchnum.pl | |
| parent | bfc37ff708b737d2490a23505b932c94f1898073 (diff) | |
| download | perl-691ce773f92d2810db171a8ff46c3dd0196abfb5.tar.gz | |
Only define PERL_PATCHNUM when either git or the .patch file is available
This patch also make PERL_GIT_UNCOMMITTED_CHANGES useful and thus avoids
always adding the "*" to the 'perl -v' output.
Diffstat (limited to 'make_patchnum.pl')
| -rw-r--r-- | make_patchnum.pl | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/make_patchnum.pl b/make_patchnum.pl index 28148de8e5..ac32808071 100644 --- a/make_patchnum.pl +++ b/make_patchnum.pl @@ -93,7 +93,7 @@ sub backtick { my $command = shift; if (wantarray) { my @result= `$subcd $command`; - warn "$subcd $command: \$?=$?\n" if $?; + #warn "$subcd $command: \$?=$?\n" if $?; print "#> $subcd $command ->\n @result\n" if !$? and $opt_v; chomp @result; return @result; @@ -122,9 +122,9 @@ sub write_files { return 0; } -my $unpushed_commits = '/*no-op*/'; +my $unpushed_commits = ' '; my ($read, $branch, $snapshot_created, $commit_id, $describe)= ("") x 5; -my ($changed, $extra_info, $commit_title, $new_patchnum, $status)= ("") x 5; +my ($changed, $extra_info, $commit_title)= ("") x 3; if (my $patch_file= read_file(".patch")) { ($branch, $snapshot_created, $commit_id, $describe) = split /\s+/, $patch_file; @@ -145,8 +145,14 @@ elsif (-d "$srcdir/.git") { $commit_id = backtick("git rev-parse HEAD"); $describe = backtick("git describe"); my $commit_created = backtick(qq{git log -1 --pretty="format:%ci"}); - $new_patchnum = "describe: $describe"; $extra_info = "git_commit_date='$commit_created'"; + backtick("git diff --no-ext-diff --quiet --exit-code"); + $changed = $?; + unless ($changed) { + backtick("git diff-index --cached --quiet HEAD --"); + $changed = $?; + } + if (length $branch && length $remote) { # git cherry $remote/$branch | awk 'BEGIN{ORS=","} /\+/ {print $2}' | sed -e 's/,$//' my $unpushed_commit_list = @@ -165,12 +171,8 @@ git_remote_branch='$remote/$merge' git_unpushed='$unpushed_commit_list'"; } } - if ($changed) { # not touched since init'd. never true. - $changed = 'true'; + if ($changed) { $commit_title = "Derived from:"; - $status='"uncommitted-changes"' - } else { - $status='/*clean-working-directory-maybe*/' } $commit_title ||= "Commit id:"; } @@ -181,10 +183,10 @@ write_files(<<"EOF_HEADER", <<"EOF_CONFIG"); * WARNING: 'git_version.h' is automatically generated by make_patchnum.pl * DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead ***************************************************************************/ -#define PERL_GIT_UNCOMMITTED_CHANGES $status -#define PERL_PATCHNUM "$describe" +@{[$describe ? "#define PERL_PATCHNUM \"$describe\"" : ()]} #define PERL_GIT_UNPUSHED_COMMITS\t\t\\ $unpushed_commits/*leave-this-comment*/ +@{[$changed ? "#define PERL_GIT_UNCOMMITTED_CHANGES" : ()]} EOF_HEADER ###################################################################### # WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl |