diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 9a5048f646..f5f88f9faf 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -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 { |