From: joy <>
Date: Sat, 14 Oct 2000 18:30:35 +0000 (-0800)
Subject: [project @ 2000-10-14 11:30:35 by joy]
X-Git-Tag: release/2.6.0~1203
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d362ebc1d938b783e70d63c7e26c4a30e24be464;p=debbugs.git

[project @ 2000-10-14 11:30:35 by joy]
empty reasonstring variable if it's undefined, to quiet perl warning messages; removed unused wwwbase variable
---

diff --git a/scripts/service.in b/scripts/service.in
index a00ff027..37fe7049 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.22 2000/10/10 21:44:01 joy Exp $
+# $Id: service.in,v 1.23 2000/10/14 11:30:35 joy Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -12,7 +12,6 @@ chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 # open(DEBUG,">&4");
 $debug = 0;
-$wwwbase= "$gWebDir";
 
 $_=shift;
 m/^[RC]\.\d+$/ || &quit("bad argument");
@@ -502,6 +501,7 @@ for $maint (keys %maintccreasons) {
         $reasonstring.= $p.' ' if length($p);
         $reasonstring.= join(' ',map("#$_",sort keys %{$$reasonsref{$p}}));
     }
+    $reasonstring = "" if undefined($reasonstring);
     push(@maintccs,"$maint ($reasonstring)");
     push(@maintccaddrs,"$maint");
 }