Unified · Split
| @@ -139,5 +139,7 @@ foreach my $name (sort keys %assembly) { · 138 unmodified lines | |||
| 139 | my $out_str = join("\n", @out_lines) . "\n"; | 139 | my $out_str = join("\n", @out_lines) . "\n"; |
| 140 | utf8::encode($out_str); | 140 | utf8::encode($out_str); |
| 141 | 141 | ||
| 142 | printf("# GA for $since/$until; %d people; SHA256:%s\n%s", | 142 | printf("# GA for $since/$until; %d people; SHA256:%s; HEAD:%s%s", |
| 143 | scalar @out_lines, Digest::SHA::sha256_hex($out_str), $out_str); | 143 | scalar @out_lines, Digest::SHA::sha256_hex($out_str), |
| 144 | decode('UTF-8', `git rev-parse HEAD`, Encode::FB_CROAK), | ||
| 145 | $out_str); | ||