The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 03
META.json 46
META.yml 34
Makefile.PL 25
lib/strictures.pm 11
maint/bump-version 912
6 files changed (This is a version diff) 1931
@@ -1,5 +1,8 @@
 Release history for strictures
 
+1.005005 - 2014-08-16
+  - include minimum perl version in metadata
+
 1.005004 - 2014-03-06
   - make sure meta files list extra modules as recommendations, not requirements
 
@@ -4,12 +4,12 @@
       "mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.9, CPAN::Meta::Converter version 2.140630",
+   "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520",
    "license" : [
       "perl_5"
    ],
    "meta-spec" : {
-      "url" : "https://metacpan.org/pod/CPAN::Meta::Spec",
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
       "version" : "2"
    },
    "name" : "strictures",
@@ -39,7 +39,9 @@
             "indirect" : "0",
             "multidimensional" : "0"
          },
-         "requires" : {}
+         "requires" : {
+            "perl" : "5.006"
+         }
       },
       "test" : {
          "requires" : {
@@ -62,5 +64,5 @@
          "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/strictures.git"
       }
    },
-   "version" : "1.005004"
+   "version" : "1.005005"
 }
@@ -6,7 +6,7 @@ build_requires:
   Test::More: '0'
 configure_requires: {}
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.9, CPAN::Meta::Converter version 2.140630'
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,9 +20,10 @@ recommends:
   bareword::filehandles: '0'
   indirect: '0'
   multidimensional: '0'
-requires: {}
+requires:
+  perl: '5.006'
 resources:
   bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=strictures
   license: http://dev.perl.org/licenses/
   repository: git://git.shadowcat.co.uk/p5sagit/strictures.git
-version: '1.005004'
+version: '1.005005'
@@ -23,7 +23,9 @@ my %META = (
       'Test::More' => 0,
     } },
     runtime => {
-      requires => { },
+      requires => {
+        perl => '5.006',
+      },
       recommends => {
         %extra_prereqs,
       },
@@ -54,6 +56,7 @@ my %MM_ARGS = (
   PREREQ_PM => {
     ($] >= 5.008004 && $have_compiler ? %extra_prereqs : () )
   },
+  realclean => { FILES => [ 'Distar/', 'MANIFEST*' ] },
 );
 
 sub parse_args {
@@ -89,7 +92,7 @@ $MM_ARGS{META_ADD} = { 'meta-spec' => { version => 2 }, %META }
 for (qw(configure build test runtime)) {
   my $key = $_ eq 'runtime' ? 'PREREQ_PM' : uc $_.'_REQUIRES';
   my $r = $MM_ARGS{$key} = {
-    %{$META{prereqs}{$_}{requires}},
+    %{$META{prereqs}{$_}{requires} || {}},
     %{delete $MM_ARGS{$key} || {}},
   };
   defined $r->{$_} or delete $r->{$_} for keys %$r;
@@ -7,7 +7,7 @@ BEGIN {
   *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0};
 }
 
-our $VERSION = '1.005004'; # 1.5.4
+our $VERSION = '1.005005';
 
 sub VERSION {
   my ($class, $version) = @_;
@@ -7,9 +7,10 @@ use autodie;
 
 chomp(my $LATEST = qx(grep '^[0-9]' Changes | head -1 | awk '{print \$1}'));
 
-my @parts = split /\./, $LATEST;
+my @parts = map { m/(\d{1,3})/g } split /\./, $LATEST;
+push @parts, 0, 0;
 
-my $OLD_DECIMAL = sprintf('%i.%03i%03i', @parts);
+my $OLD_DECIMAL = sprintf('%i.%03i%03i', @parts[0..2]);
 
 my %bump_part = (major => 0, minor => 1, bugfix => 2);
 
@@ -21,16 +22,18 @@ my @new_parts = @parts;
 
 $new_parts[$bump_this]++;
 
-my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts);
+my $NEW_DECIMAL = sprintf('%i.%03i%03i', @new_parts[0..2]);
 
-warn "Bumping $OLD_DECIMAL -> $NEW_DECIMAL\n";
+my @PM_FILES = ( 'lib/strictures.pm' );
 
-my $PM_FILE = 'lib/Module/Metadata.pm';
+foreach my $filename (@PM_FILES) {
+  warn "Bumping $OLD_DECIMAL -> $NEW_DECIMAL in $filename\n";
 
-my $file = do { local (@ARGV, $/) = ($PM_FILE); <> };
+  my $file = do { local (@ARGV, $/) = ($filename); <> };
 
-$file =~ s/(?<=\$VERSION = ')${\quotemeta $OLD_DECIMAL}/${NEW_DECIMAL}/;
+  $file =~ s/(?<=\$VERSION = ')${\quotemeta $OLD_DECIMAL}/${NEW_DECIMAL}/;
 
-open my $out, '>', $PM_FILE;
+  open my $out, '>', $filename;
 
-print $out $file;
+  print $out $file;
+}