Move @letters in test.pl earlier
authorBrad Gilbert <b2gills@gmail.com>
Tue, 25 Sep 2012 16:39:45 +0000 (11:39 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 25 Sep 2012 21:35:11 +0000 (14:35 -0700)
t/test.pl

index 44a38dc..65e2348 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -762,6 +762,8 @@ sub unlink_all {
     $count;
 }
 
+my @letters = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);
+
 my %tmpfiles;
 END { unlink_all keys %tmpfiles }
 
@@ -769,7 +771,6 @@ END { unlink_all keys %tmpfiles }
 $::tempfile_regexp = 'tmp\d+[A-Z][A-Z]?';
 
 # Avoid ++, avoid ranges, avoid split //
-my @letters = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);
 sub tempfile {
     my $count = 0;
     do {