From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 16 Apr 2012 04:47:47 +0000 (+0200)
Subject: Version/dist Makefile.PL safety checks
X-Git-Tag: v0.08197~29
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=acdfdae0d491959352c5291b867ef0d32b7ece5e;p=dbsrgits%2FDBIx-Class.git

Version/dist Makefile.PL safety checks
---

diff --git a/maint/Makefile.PL.inc/29_handle_version.pl b/maint/Makefile.PL.inc/29_handle_version.pl
new file mode 100644
index 0000000..a5f8ad2
--- /dev/null
+++ b/maint/Makefile.PL.inc/29_handle_version.pl
@@ -0,0 +1,48 @@
+
+my $dbic_ver_re = qr/ (\d) \. (\d{2}) (\d{3}) (?: _ (\d{2}) )? /x; # not anchored!!!
+
+my $version_string = Meta->version;
+my $version_value = eval $version_string;
+
+my ($v_maj, $v_min, $v_point, $v_dev) = $version_string =~ /^$dbic_ver_re$/
+  or die sprintf (
+    "Invalid version %s (as specified in %s)\nCurrently valid version formats are M.VVPPP or M.VVPPP_DD\n",
+    $version_string,
+    Meta->{values}{version_from} || Meta->{values}{all_from} || 'Makefile.PL',
+  )
+;
+
+if ($v_maj != 0 or $v_min > 8) {
+  die "Illegal version $version_string - we are still in the 0.08 cycle\n"
+}
+
+
+# all odd releases *after* 0.08200 generate a -TRIAL, no exceptions
+Meta->makemaker_args->{DISTVNAME} = Meta->name . "-$version_string-TRIAL"
+  if ( $v_point > 200 and int($v_point / 100) % 2 );
+
+
+my $tags = { map { chomp $_; $_ => 1} `git tag` };
+# git may not be available
+if (keys %$tags) {
+  my $shipped_versions;
+  my $shipped_dev_versions;
+
+  for (keys %$tags) {
+    if ($_ =~ /^v$dbic_ver_re$/) {
+      if (defined $4) {
+        $shipped_dev_versions->{"$1.$2$3$4"} = 1;
+      }
+      else {
+        $shipped_versions->{"$1.$2$3"} = 1;
+      }
+      delete $tags->{$_};
+    }
+  }
+
+  die sprintf "Tags in unknown format found: %s\n", join ', ', keys %$tags
+    if keys %$tags;
+}
+
+# keep the Makefile.PL eval happy
+1;