diff options
| author | Niko Tyni <ntyni@debian.org> | 2016-05-01 22:19:13 +0300 |
|---|---|---|
| committer | Aaron Crane <arc@cpan.org> | 2016-05-16 13:29:46 +0100 |
| commit | a2b4240a80b9c49a8a3c43c2bc84ccfeb6ef63af (patch) | |
| tree | d6ee70875b3b5ed7231ea46923658e2b438f994e /utils | |
| parent | 9cea1b144d6a5c138a4576a9d70366d1949a51db (diff) | |
| download | perl-a2b4240a80b9c49a8a3c43c2bc84ccfeb6ef63af.tar.gz | |
perlbug: Allow subjects without whitespace in test mode
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.
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 { |