[FFmpeg-cvslog] tools/general_assembly: restore printing HEAD

[Anton Khirnov]

ffmpeg | branch: master | Anton Khirnov <anton at khirnov.net> | Thu Nov 23 10:10:16 2023 +0100| [2020ef9770d6bdf4ed2d8a32595d0e70afd2db8f] | committer: Anton Khirnov

tools/general_assembly: restore printing HEAD

> http://git.videolan.org/gitweb.cgi/ffmpeg.git/?a=commit;h=2020ef9770d6bdf4ed2d8a32595d0e70afd2db8f
---

 tools/general_assembly.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tools/general_assembly.pl b/tools/general_assembly.pl
index 3bf65f3405..13c13bb28f 100755
--- a/tools/general_assembly.pl
+++ b/tools/general_assembly.pl
@@ -139,5 +139,7 @@ foreach my $name (sort keys %assembly) {
 my $out_str = join("\n", @out_lines) . "\n";
 utf8::encode($out_str);
 
-printf("# GA for $since/$until; %d people; SHA256:%s\n%s",
-       scalar @out_lines, Digest::SHA::sha256_hex($out_str), $out_str);
+printf("# GA for $since/$until; %d people; SHA256:%s; HEAD:%s%s",
+       scalar @out_lines, Digest::SHA::sha256_hex($out_str),
+       decode('UTF-8', `git rev-parse HEAD`, Encode::FB_CROAK),
+       $out_str);