APItest/t: Change some variable names
authorKarl Williamson <khw@cpan.org>
Tue, 27 Jun 2017 04:27:23 +0000 (22:27 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:24 +0000 (21:14 -0600)
One of these is used in multiple test files in this directory.

The names are ambiguous for the contexts they occur in.  'first' can
mean earliest in the string, but here it means the lowest ordinal value.

ext/XS-APItest/t/utf8.t
ext/XS-APItest/t/utf8_setup.pl
ext/XS-APItest/t/utf8_warn_base.pl

index c7a032e..1c759cd 100644 (file)
@@ -449,17 +449,17 @@ while ($cp < ((isASCII) ? 128 : 160)) {   # This is from the definition of
 # continuation bytes can be in, and what the lowest start byte can be.  So we
 # cycle through them.
 
-my $final_continuation = 0xBF;
+my $highest_continuation = 0xBF;
 my $start = (isASCII) ? 0xC2 : 0xC5;
 
-my $continuation = $::first_continuation - 1;
+my $continuation = $::lowest_continuation - 1;
 
 while ($cp < 255) {
-    if (++$continuation > $final_continuation) {
+    if (++$continuation > $highest_continuation) {
 
         # Wrap to the next start byte when we reach the final continuation
         # byte possible
-        $continuation = $::first_continuation;
+        $continuation = $::lowest_continuation;
         $start++;
     }
     $code_points{$cp} = I8_to_native(chr($start) . chr($continuation));
index dd3992d..62b0649 100644 (file)
@@ -51,7 +51,7 @@ sub start_byte_to_cont($) {
 
 $::is64bit = length sprintf("%x", ~0) > 8;
 
-$::first_continuation = (isASCII) ? 0x80 : 0xA0;
+$::lowest_continuation = (isASCII) ? 0x80 : 0xA0;
 
 $::I8c = (isASCII) ? "\x80" : "\xa0";    # A continuation byte
 
index 66f6f3d..419c2ce 100644 (file)
@@ -722,7 +722,7 @@ foreach my $test (@tests) {
                             # original.
                             $this_bytes
                             = I8_to_native("\xff")
-                            . (I8_to_native(chr $::first_continuation)
+                            . (I8_to_native(chr $::lowest_continuation)
                             x ( $::max_bytes - 1 - length($this_bytes)))
                             . $this_bytes;
                             $this_length = length($this_bytes);