2 # If you think this is stupid/overkill, blame dormando
7 my $version = `git describe`;
9 # Test the various versions.
10 #my $version = 'foob';
11 #my $version = '1.4.2-30-gf966dba';
12 #my $version = '1.4.3-rc1';
13 #my $version = '1.4.3';
14 unless ($version =~ m/^\d+\.\d+\.\d+/) {
15 write_file
('version.m4', "m4_define([VERSION_NUMBER], [UNKNOWN])\n");
20 write_file
('version.m4', "m4_define([VERSION_NUMBER], [$version])\n");
21 my ($VERSION, $FULLVERSION, $RELEASE);
23 if ($version =~ m/^(\d+\.\d+\.\d+)_rc(\d+)$/) {
25 $FULLVERSION = $version;
26 $RELEASE = '0.1.rc' . $2;
27 } elsif ($version =~ m/^(\d+\.\d+\.\d+)_(.+)$/) {
29 $FULLVERSION = $version;
31 } elsif ($version =~ m/^(\d+\.\d+\.\d+)$/) {
33 $FULLVERSION = $version;
37 my $spec = read_file
('memcached.spec.in');
38 $spec =~ s/\@VERSION\@/$VERSION/gm;
39 $spec =~ s/\@FULLVERSION\@/$FULLVERSION/gm;
40 $spec =~ s/\@RELEASE\@/$RELEASE/gm;
42 write_file
('memcached.spec', $spec);
47 open(my $fh, "> $file") or die "Can't open $file: $!";
55 open(my $fh, "< $file") or die "Can't open $file: $!";