Reduce Perl dependency to 5.10.1

diff --git a/Makefile.PL b/Makefile.PL
index 2ff875dee79985cd317e1b86ebf13be235c42306..f78c2187c2cc53560b0e36a986ad273e4da147c6 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -6,7 +6,7 @@ WriteMakefile(
        VERSION_FROM      => 'lib/Mafia.pm',
        ABSTRACT_FROM     => 'lib/Mafia.pm',
        AUTHOR            => 'Marius Gavrilescu <marius@ieval.ro>',
-       MIN_PERL_VERSION  => '5.14.0',
+       MIN_PERL_VERSION  => '5.10.1',
        LICENSE           => 'perl',
        SIGN              => 1,
        META_MERGE         => {

diff --git a/lib/Mafia.pm b/lib/Mafia.pm
index 40eeaba1989f1932d71db666af4c0ccf79f324b2..7785546bce3c0425340b6a28cd6c3b4bd87ad5ce 100644 (file)
--- a/lib/Mafia.pm
+++ b/lib/Mafia.pm
@@ -1,6 +1,6 @@
 package Mafia;
 
-use 5.014000;
+use 5.010001;
 use strict;
 use warnings;
 use parent qw/Exporter/;

diff --git a/t/examples.t b/t/examples.t
index 63efb10f15f68bacb391a183ffc11f0b1b1e0c69..977cd6ef290bf17dc87111e2caac94f330186958 100644 (file)
--- a/t/examples.t
+++ b/t/examples.t
@@ -1,13 +1,14 @@
 #!/usr/bin/perl
-use 5.014000;
+use 5.010001;
+use strict;
 use warnings;
 
 use IO::Handle;
-use Mafia;
 
 my @examples;
-BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
-use Test::More tests => scalar @examples;
+BEGIN { @examples = glob 't/examples/*.pl' };
+use Test::More tests => 1 + @examples;
+BEGIN { use_ok('Mafia') }
 
 for my $example (@examples) {
        my $out;
@@ -15,7 +16,8 @@ for my $example (@examples) {
        open STDOUT, '>', \$out;
        clean;
 
+       do $example;
+       $example =~ s/\.pl$//;
        my $ok = join '', IO::File->new("$example.out", '<')->getlines;
-       do "$example.pl";
        is $out, $ok, substr $example, length 't/examples/'
 }