This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In fold_grind.t, move the use charnames; after the skip_all_if_miniperl().
authorNicholas Clark <nick@ccl4.org>
Fri, 25 Feb 2011 15:54:15 +0000 (15:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 6 Mar 2011 09:13:50 +0000 (09:13 +0000)
This test isn't run under minitest, but use charnames; may well fail before
that skip is encountered, if it fails to load File::Spec. Moving it after
the BEGIN block ensures that the test will always run, or skip cleanly.

t/re/fold_grind.t

index 33adebd..5a8a7b4 100644 (file)
@@ -1,7 +1,5 @@
 # Grind out a lot of combinatoric tests for folding.
 
-use charnames ":full";
-
 binmode STDOUT, ":utf8";
 
 BEGIN {
@@ -11,6 +9,8 @@ BEGIN {
     skip_all_if_miniperl("no dynamic loading on miniperl, no Encode nor POSIX");
 }
 
+use charnames ":full";
+
 my $DEBUG = 0;  # Outputs extra information for debugging this .t
 
 use strict;