diff options
Diffstat (limited to 't/002goodperl.t')
-rw-r--r-- | t/002goodperl.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index 7b2e74acc..400483a5a 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -10,7 +10,7 @@ #Bugzilla Test 2# ####GoodPerl##### -use 5.10.1; +use 5.14.0; use strict; use warnings; @@ -88,16 +88,16 @@ foreach my $file (@testitems) { next; } while (my $file_line = <FILE>) { - $found_use_perl = 1 if $file_line =~ m/^\s*use 5.10.1/; + $found_use_perl = 1 if $file_line =~ m/^\s*use 5\.14\.0/; $found_use_strict = 1 if $file_line =~ m/^\s*use strict/; $found_use_warnings = 1 if $file_line =~ m/^\s*use warnings/; last if ($found_use_perl && $found_use_strict && $found_use_warnings); } close (FILE); if ($found_use_perl) { - ok(1,"$file requires Perl 5.10.1"); + ok(1,"$file requires Perl 5.14.0"); } else { - ok(0,"$file DOES NOT require Perl 5.10.1 --WARNING"); + ok(0,"$file DOES NOT require Perl 5.14.0 --WARNING"); } if ($found_use_strict) { |