mirror of https://github.com/CGAL/cgal
Reimplement the smudge filter in perl, faster
This commit is contained in:
parent
a615cb2d4c
commit
cd03d5eaf2
|
|
@ -0,0 +1,14 @@
|
||||||
|
#! /usr/bin/env perl
|
||||||
|
|
||||||
|
use Git;
|
||||||
|
|
||||||
|
#print STDERR "$ARGV[0]\n";
|
||||||
|
|
||||||
|
my $repo = Git->repository();
|
||||||
|
|
||||||
|
$last_date=$repo->command_oneline("log", "--pretty=format:\"%ad\"", "-1", "--", $ARGV[0]);
|
||||||
|
|
||||||
|
while(<STDIN>) {
|
||||||
|
s/\$Date[^\$]*\$/\$Date: $last_date\$/;
|
||||||
|
print;
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue