From a2b4240a80b9c49a8a3c43c2bc84ccfeb6ef63af Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@debian.org>
Date: Sun, 1 May 2016 22:19:13 +0300
Subject: 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.
---
 utils/perlbug.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'utils')

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 {
-- 
cgit v1.2.1