Allow trailinng periods after the control stop commands (closes:

[debbugs.git] / scripts / service

diff --git a/scripts/service b/scripts/service
index ff738789e0741ccfa682d6a70d212e2b30100b0b..3f05dc082e3fe3b82acb28de4fb8e9b2246ccaf7 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -204,7 +204,7 @@ for ($procline=0; $procline<=$#bodylines; $procline++) {
     print {$transcript} "> $_\n";
     next if m/^\s*\#/;
     $action= '';
-    if (m/^stop\s*$/i || m/^quit\s*$/i || m/^--\s*$/ || m/^thank(?:s|\s*you)?\s*$/i || m/^kthxbye\s*$/i) {
+    if (m/^(?:stop|quit|--|thank(?:s|\s*you)?|kthxbye)\.*\s*$/i) {
        print {$transcript} "Stopping processing here.\n\n";
         last;
     } elsif (m/^debug\s+(\d+)$/i && $1 >= 0 && $1 <= 1000) {