Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 26 lines (22 sloc) 0.33 kB
#!/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.