From 03650cf4a0bfe8f76ce338ef8dd063298710a60c Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Wed, 10 Jul 2002 03:48:01 -0800
Subject: [PATCH] [project @ 2002-07-10 04:48:01 by doogie] Don't die
 abnormally if @gFuckHeads is empty.

---
 scripts/service.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 }
-- 
2.39.5