Bug 787529: Use |use 5.10.1| everywhere

r=wicked a=LpSolit

1 files changed, 23 insertions, 1 deletions

diff --git a/t/002goodperl.t b/t/002goodperl.t
index e691b39dd..4826c7712 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -16,7 +16,7 @@ use lib 't';
 
 use Support::Files;
 
-use Test::More tests => (scalar(@Support::Files::testitems) * 3);
+use Test::More tests => (scalar(@Support::Files::testitems) * 4);
 
 my @testitems = @Support::Files::testitems; # get the files to test.
 
@@ -84,6 +84,28 @@ foreach my $file (@testitems) {
     }
 }
 
+foreach my $file (@testitems) {
+    my $found_use_feature = 0;
+    $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
+    next if (!$file); # skip null entries
+    if (! open (FILE, $file)) {
+        ok(0,"could not open $file --WARNING");
+        next;
+    }
+    while (my $file_line = <FILE>) {
+        if ($file_line =~ m/^\s*use 5.10.1/) {
+            $found_use_feature = 1;
+            last;
+        }
+    }
+    close (FILE);
+    if ($found_use_feature) {
+        ok(1,"$file requires Perl 5.10.1");
+    } else {
+        ok(0,"$file DOES NOT require Perl 5.10.1 --WARNING");
+    }
+}
+
 # Check to see that all error messages use tags (for l10n reasons.)
 foreach my $file (@testitems) {
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)