git-set-file-times 1.02 KB
Newer Older
1
2
3
#!/usr/bin/env perl
# -*- indent-tabs-mode: nil; -*-
# vim:ft=perl:et:sw=4
4
5
6

# Sets mtime and atime of files to the latest commit time in git.
#
7
# This is useful after the first clone of the Git repository BEFORE you
8
9
# do any building.  It is also safe if you have done a "make distclean".

10
11
12
use strict;
use warnings;

13
14
15
16
17
18
19
20
21
22
23
24
25
my %ls;
my $commit_time;
my $prefix = @ARGV && $ARGV[0] =~ s/^--prefix=// ? shift : '';

$/ = "\0";
open FH, 'git ls-files -z|' or die $!;
while (<FH>) {
    chomp;
    $ls{$_} = $_;
}
close FH;

$/ = "\n";
IKEDA Soji's avatar
tidyall    
IKEDA Soji committed
26
27
open FH, "git log -m -r --name-only --no-color --pretty=raw -z @ARGV |"
    or die $!;
28
29
30
while (<FH>) {
    chomp;
    if (/^committer .*? (\d+) (?:[\-\+]\d+)$/) {
IKEDA Soji's avatar
tidyall    
IKEDA Soji committed
31
32
33
34
35
36
37
38
        $commit_time = $1;
    } elsif (s/\0\0commit [a-f0-9]{40}( \(from [a-f0-9]{40}\))?$// or s/\0$//)
    {
        my @files = delete @ls{split(/\0/, $_)};
        @files = grep { defined $_ } @files;
        next unless @files;
        map {s/^/$prefix/} @files;
        utime $commit_time, $commit_time, @files;
39
40
41
42
    }
    last unless %ls;
}
close FH;