perlbug: Allow subjects without whitespace in test mode
authorNiko Tyni <ntyni@debian.org>
Sun, 1 May 2016 19:19:13 +0000 (22:19 +0300)
committerAaron Crane <arc@cpan.org>
Mon, 16 May 2016 12:29:46 +0000 (13:29 +0100)
Passing whitespace in an option through test.pl runperl() doesn't seem
to work, so relax the check in test mode (-t) for noninteractive testing.

utils/perlbug.PL

index 9a5048f..f5f88f9 100644 (file)
@@ -880,7 +880,7 @@ sub TrivialSubject {
     if ($subject =~
        /^(y(es)?|no?|help|perl( (bug|problem))?|bug|problem)$/i ||
        length($subject) < 4 ||
-       $subject !~ /\s/) {
+       ($subject !~ /\s/ && ! $opt{t})) { # non-whitespace is accepted in test mode
        print "\nThe subject you entered wasn't very descriptive. Please try again.\n\n";
         return 1;
     } else {