This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t: Change some variable names
[perl5.git] / ext / XS-APItest / t / utf8_warn_base.pl
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);