lustre/scripts/version_tag-git.pl

   1 my ($tag, $fcoms, $hash);
   2
   3 sub get_buildid()
   4 {
   5
   6     return $main::am_buildid;
   7
   8 }
   9
  10 sub is_pristine()
  11 {
  12
  13     if ($fcoms > 0) {
  14         return 0;
  15     }
  16
  17     my $diffcount=`git diff | wc -l`;
  18     if ($diffcount > 0) {
  19         return 0;
  20     }
  21
  22     return 1;
  23
  24 }
  25
  26 sub get_tag()
  27 {
  28
  29     return $tag;
  30
  31 }
  32
  33 my $desc=`git describe --tags`;
  34 $desc =~ /([^-]+)(?:-(.+)-(.+))?\n/;
  35 $tag = $1;
  36 $fcoms = $2;
  37 $hash = $3;
  38
  39 1;