This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/utf8.t: Fill in missing die() reason
authorKarl Williamson <khw@cpan.org>
Thu, 17 Nov 2016 03:17:48 +0000 (20:17 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 17 Nov 2016 09:51:05 +0000 (02:51 -0700)
I forgot to complete this before the initial commit, so that the reason
for dieing was empty.

ext/XS-APItest/t/utf8.t

index e366254..291321e 100644 (file)
@@ -72,7 +72,7 @@ sub start_byte_to_cont($) {
     my $byte = shift;
     my $len = test_UTF8_SKIP($byte);
     if ($len < 2) {
     my $byte = shift;
     my $len = test_UTF8_SKIP($byte);
     if ($len < 2) {
-        die "";
+        die "start_byte_to_cont() is expecting a UTF-8 variant";
     }
 
     $byte = ord native_to_I8($byte);
     }
 
     $byte = ord native_to_I8($byte);