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
26
27
28
29
30
|
#!/usr/bin/perl
use strict;
use warnings;
my $dbixs_rev_file = "dbixs_rev.h";
sub skip_update {
my $reason = shift;
print "Skipping regeneration of $dbixs_rev_file: ", $reason, "\n";
utime (time (), time (), $dbixs_rev_file); # update modification time
exit 0;
} # skip_update
-d ".git" or skip_update ("No git env");
my @n = eval { qx{git log --pretty=oneline} };
@n or skip_update ("Git log was empty");
open my $fh, ">$dbixs_rev_file" or die "Can't open $dbixs_rev_file: $!\n";
print $fh "/* ", scalar localtime, " */\n";
chomp (my @st = qx{git status -s --show-stash});
print $fh "/* $_ */\n" for grep { !m/\b$dbixs_rev_file\b/ } @st;
my $def = "DBIXS_REVISION";
my $rev = scalar @n;
print $fh "#define $def $rev\n";
close $fh or die "Error closing $dbixs_rev_file: $!\n";
print "Wrote $def $rev to $dbixs_rev_file\n";
|
