Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 26 lines (22 sloc) 330 Bytes
#!/usr/bin/env perl
use warnings;
use strict;
sub fix($) {
my $s = shift;
chomp $s;
return $s;
}
while (<>) {
s{
\$Format:\%d\$
}{
my $tag = fix(`git describe --match="bup-*"`);
"(tag: $tag)"
}ex;
s{
\$Format:([^\$].*)\$
}{
fix(`git log -1 --pretty=format:"$1"`)
}ex;
print;
}
Jump to Line
Something went wrong with that request. Please try again.