remind me of checking in, tagging and uploading in the correct order
authorAndreas Koenig <andk@cpan.org>
Sat, 5 Jan 2013 12:31:12 +0000 (5 13:31 +0100)
committerAndreas Koenig <andk@cpan.org>
Sat, 5 Jan 2013 12:31:12 +0000 (5 13:31 +0100)
Changes
Makefile.PL
lib/File/Rsync/Mirror/Recent.pm

diff --git a/Changes b/Changes
index 456bf54..4aa8838 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,13 @@
+2013-01-05  k  <k@k83.linux.bogus>
+
+       * release 0.3.4
+
+       * release 0.3.3
+
+       * no functional change, just bump the version number. Just the
+       Makefile.PL to remind me of checking in, tagging and uploading in the
+       correct order.
+
 2012-12-31  k  <andk@cpan.org>
 
        * release 0.3.2
index eea7a3a..e80b450 100644 (file)
@@ -9,8 +9,11 @@ my $version = MM->parse_version($version_from);
 if ($ARGV[0]){
     if ($ARGV[0] eq "--setversion") {
         die "Your perl is a bit dated[$]].\nDo not make a release with it\n" if $] < 5.008;
-        die "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nYou should get a new one\n"
+        die "Your MakeMaker is a bit dated[$ExtUtils::MakeMaker::VERSION].\nDo not make a release with it\n"
             if $ExtUtils::MakeMaker::VERSION < 6.4502;
+        local $ENV{LANG} = "C";
+        my $dirty = `git status --porcelain --untracked-files=no`;
+        die "Not everything checked in or out?\n====\n$dirty====\n" if $dirty;
         use lib "lib";
         eval {  require $version_from; }; die $@ if $@;
         my $makefile = "Makefile";
@@ -91,6 +94,7 @@ WriteMakefile
      dist => {
               DIST_DEFAULT => join(" ", # note: order matters!
                                    "verify-changes-date",
+                                   "verify-changes-version",
                                    "Makefile",
                                    "META.yml",
                                    "setversion",
@@ -146,6 +150,9 @@ verify-changes-date:
        @$(PERL) -ne 'BEGIN{my@t=(localtime)[5,4,3];$$t[0]+=1900;$$t[1]++;$$t=sprintf"%04d-%02d-%02d",@t}' \
                -e '$$ok++,exit if /^$$t\s/; END{die "Alert: did not find <$$t> in Changes file" unless $$ok}' Changes
 
+verify-changes-version:
+       @$(PERL) -ne '$$ok++,exit if /\b$(VERSION)\b/; END{die "Alert: did not find <$(VERSION)> in Changes file" unless $$ok}' Changes
+
 verify-no-subdir:
        @$(PERL) -e 'my$$s=join",",grep{!/^($(OKDIRS))\z/x&&-d($$_)}glob"*";' \
                -e 'die"unexpected dir:$$s"if$$s'
index 366792e..ccdfdb7 100644 (file)
@@ -28,7 +28,7 @@ use Storable;
 use Time::HiRes qw();
 use YAML::Syck;
 
-use version; our $VERSION = qv('0.3.2');
+use version; our $VERSION = qv('0.3.4');
 
 =head1 SYNOPSIS