Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

executable file 26 lines (22 sloc) 0.33 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
#!/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;
}
Something went wrong with that request. Please try again.