From 48e9c5d48f9e8a882c41665cd4c18fb237fc00ac Mon Sep 17 00:00:00 2001 From: Brad Gilbert Date: Tue, 25 Sep 2012 11:39:45 -0500 Subject: [PATCH] Move @letters in test.pl earlier --- t/test.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/t/test.pl b/t/test.pl index 44a38dc..65e2348 100644 --- 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 { -- 2.7.4