This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/anyof.t: Clarify failing message
[perl5.git] / t / re / anyof.t
index a43cbae..b99ba62 100644 (file)
@@ -60,7 +60,7 @@ sub  get_compiled ($) {
 
     my $result = fresh_perl($actual_pattern);
     if ($? != 0) {  # Re-run so as to display STDERR.
-        fail($pattern);
+        fail($pattern, "Until this is fixed, the planned number of tests will be wrong");
         fresh_perl($actual_pattern, { stderr => 0, verbose => 1 });
         return;
     }