This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlbug: Allow subjects without whitespace in test mode
[perl5.git] / 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 {