From: joy <> Date: Sat, 7 Oct 2000 03:31:46 +0000 (-0800) Subject: [project @ 2000-10-06 20:31:46 by joy] X-Git-Tag: release/2.6.0~1244 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cbc0ea6ad2d285af98c9850cebc41cc4a1db7ff9;p=debbugs.git [project @ 2000-10-06 20:31:46 by joy] allow everything starting with thank --- diff --git a/scripts/service.in b/scripts/service.in index 4daff161..931cc283 100755 --- a/scripts/service.in +++ b/scripts/service.in @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# $Id: service.in,v 1.16 2000/10/06 05:44:45 doogie Exp $ +# $Id: service.in,v 1.17 2000/10/06 20:31:46 joy Exp $ # # Usage: service .nn # Temps: incoming/P.nn @@ -90,7 +90,7 @@ for ($procline=$i; $procline<=$#msg; $procline++) next unless m/\S/; next if m/^\s*\#/; &transcript("> $_\n"); $action= ''; - if (m/^stop\s/i || m/^quit\s/i || m/^--/ || m/^thank\s/i) + if (m/^stop\s/i || m/^quit\s/i || m/^--/ || m/^thank/i) { &transcript("Stopping processing here.\n\n"); last; } elsif (m/^debug\s+(\d+)$/i && $1 >= 0 && $1 <= 1000) {