From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 15 Aug 2015 20:10:15 +0000 (+0300)
Subject: Reduce Perl dependency to 5.10.1
X-Git-Tag: 0.001002~1
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=76b9203782f6861f881a189e3fcfa6d55128eca1;p=mafia.git

Reduce Perl dependency to 5.10.1
---

diff --git a/Makefile.PL b/Makefile.PL
index 2ff875d..f78c218 100644
--- 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 40eeaba..7785546 100644
--- 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 63efb10..977cd6e 100644
--- 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/'
 }