blob: 077ac0e0c989204e116737f9918b3b17a667361c [file] [log] [blame]
Dmitry V. Levin63630742015-01-21 20:50:32 +00001#!/usr/bin/perl
Dmitry V. Levin81dfcfb2009-10-09 23:07:12 +00002use strict;
Dmitry V. Levin63630742015-01-21 20:50:32 +00003use warnings;
Dmitry V. Levin81dfcfb2009-10-09 23:07:12 +00004
5# Sets mtime and atime of files to the latest commit time in git.
6#
7# This is useful after the first clone of the rsync repository BEFORE you
8# do any building. It is also safe if you have done a "make distclean".
9
10my %ls;
11my $commit_time;
12my $prefix = @ARGV && $ARGV[0] =~ s/^--prefix=// ? shift : '';
13
14$/ = "\0";
15open FH, 'git ls-files -z|' or die $!;
16while (<FH>) {
17 chomp;
18 $ls{$_} = $_;
19}
20close FH;
21
22$/ = "\n";
23open FH, "git log -r --name-only --no-color --pretty=raw -z @ARGV |" or die $!;
24while (<FH>) {
25 chomp;
26 if (/^committer .*? (\d+) (?:[\-\+]\d+)$/) {
27 $commit_time = $1;
28 } elsif (s/\0\0commit [a-f0-9]{40}$// or s/\0$//) {
29 my @files = delete @ls{split(/\0/, $_)};
30 @files = grep { defined $_ } @files;
31 next unless @files;
32 map { s/^/$prefix/ } @files;
33 utime $commit_time, $commit_time, @files;
34 }
35 last unless %ls;
36}
37close FH;