From: doogie <>
Date: Wed, 10 Jul 2002 11:48:01 +0000 (-0800)
Subject: [project @ 2002-07-10 04:48:01 by doogie]
X-Git-Tag: release/2.6.0~1059
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=03650cf4a0bfe8f76ce338ef8dd063298710a60c;p=debbugs.git

[project @ 2002-07-10 04:48:01 by doogie]
Don't die abnormally if @gFuckHeads is empty.
---

diff --git a/scripts/service.in b/scripts/service.in
index a3eb9eb2..10e787e2 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.46 2002/01/19 05:39:28 ajt Exp $
+# $Id: service.in,v 1.47 2002/07/10 04:48:01 doogie Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -94,7 +94,7 @@ while ( $i <= $#msg && !length( $msg[$i] ) ) { $fwd .= "\n"; $i++; }
 my $quickabort = 0;
 
 my $fuckheads = "(" . join("|", @gFuckheads) . ")";
-if ($replyto =~ m/$fuckheads/) {
+if (@gFuckheads and $replyto =~ m/$fuckheads/) {
 	&transcript("This service is unavailable.\n\n");
 	$quickabort = 1;
 }