This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct typo: agreement in tense.
authorJames E Keenan <jkeenan@cpan.org>
Thu, 15 Feb 2018 14:16:14 +0000 (09:16 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Thu, 15 Feb 2018 14:16:14 +0000 (09:16 -0500)
dist/if/t/if.t

index 827d93c..999a30f 100644 (file)
@@ -89,7 +89,7 @@ unless (eval 'use open ":std"; 1') {
                 $result = sprintf $test->{fmt}, @{$test->{args}};
                 is($result, $test->{args}->[0], "Got expected string");
                 like($warn, qr/Redundant argument in sprintf/,
-                    "Redundant argument warning generated and capture");
+                    "Redundant argument warning generated and captured");
             }
         }
     }