version-gen.perl

   1 #!perl -w
   2 use v5.10.1;
   3 my $v = $ENV{VERSION} // die 'VERSION unset';
   4 my $f = './lib/PublicInbox.pm';
   5 if (-d ($ENV{GIT_DIR} // '.git') || -f '.git') {
   6         chomp(my $gv = `git describe --match "v[0-9]*" HEAD`);
   7         if ($? == 0) {
   8                 substr($gv, 0, 1, ''); # remove "v"
   9                 system(qw(git update-index -q --refresh));
  10                 if (my @n = `git diff-index --name-only HEAD --`) {
  11                         $gv .= '-dirty';
  12                 }
  13                 $v = $gv;
  14         }
  15 }
  16 $v =~ tr/-/./;
  17 if (-f $f && do $f && (eval('$PublicInbox::VERSION') // 'undef') eq $v) {
  18         exit
  19 }
  20 my $tmp = "$f.tmp.$$";
  21 open my $fh, '>', $tmp  or die "open($tmp): $!";
  22 print $fh <<EOM or die "print($tmp): $!";
  23 # this file is generated by $0
  24 package PublicInbox;
  25 our \$VERSION = '$v';
  26 1;
  27 EOM
  28 close $fh or die "close($tmp): $!";
  29 rename($tmp, $f) or die "rename($tmp, $f): $!";