This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest:t/utf8_warn_base.pl: Clarify some comments
authorKarl Williamson <khw@cpan.org>
Sun, 4 Feb 2018 05:09:28 +0000 (22:09 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 7 Feb 2018 18:19:14 +0000 (11:19 -0700)
ext/XS-APItest/t/utf8_warn_base.pl

index 6f7a36d..b1935d9 100644 (file)
@@ -1378,10 +1378,10 @@ foreach my $test (@tests) {
                     if ($use_warn_flag) {
                         next if $initially_overlong || $initially_orphan;
 
                     if ($use_warn_flag) {
                         next if $initially_overlong || $initially_orphan;
 
-                        # Since utf8n_to_uvchr_msgs() expects warnings even
-                        # when lexical ones are turned off, we can skip
-                        # testing it when they are turned on, with little
-                        # likelihood of missing an error case.
+                        # Since foo_msgs() expects warnings even when lexical
+                        # ones are turned off, we can skip testing it when
+                        # they are turned on, with little likelihood of
+                        # missing an error case.
                         next if $which_func;
                     }
                     else {
                         next if $which_func;
                     }
                     else {
@@ -1406,7 +1406,7 @@ foreach my $test (@tests) {
 
                         # We ordinarily expect overflow warnings here.  But it
                         # is somewhat more complicated, and the final
 
                         # We ordinarily expect overflow warnings here.  But it
                         # is somewhat more complicated, and the final
-                        # determination is deferred to one place in the filw
+                        # determination is deferred to one place in the file
                         # where we handle overflow.
                         $expect_warnings_for_overflow = 1;
 
                         # where we handle overflow.
                         $expect_warnings_for_overflow = 1;