This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
localet.t: Change variable name
authorKarl Williamson <public@khwilliamson.com>
Mon, 16 Jan 2012 19:53:35 +0000 (12:53 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 21 Jan 2012 17:02:53 +0000 (10:02 -0700)
to avoid the ambiguity of 'last'

lib/locale.t

index 0c428f9..3c8d8f8 100644 (file)
@@ -258,7 +258,7 @@ unless ($have_setlocale) {
 }
 
 # The test number before our first setlocale()
-my $last_without_setlocale = $test_num;
+my $final_without_setlocale = $test_num;
 
 # Find locales.
 
@@ -837,11 +837,11 @@ foreach $Locale (@Locale) {
     }
 }
 
-my $last_locales = $have_setlocale ? &last_locales : $last_without_setlocale;
+my $last_locales = $have_setlocale ? &last_locales : $final_without_setlocale;
 
 # Recount the errors.
 
-foreach ($last_without_setlocale+1..$last_locales) {
+foreach ($final_without_setlocale+1..$last_locales) {
     if ($Problem{$_} || !defined $Okay{$_} || !@{$Okay{$_}}) {
        if ($_ == 102) {
            print "# The failure of test 102 is not necessarily fatal.\n";