From dc8e636e0a922d93bfc2eee7e0d99cbca3f69244 Mon Sep 17 00:00:00 2001 From: "cyeh%bluemartini.com" <> Date: Thu, 31 Aug 2000 04:47:17 +0000 Subject: fix submitted for 42809: bug_email.pl doesn't allow for priority = 0 patch submitted by brad@xyu.dhs.org (Brad Sarsfield) --- contrib/bug_email.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'contrib') diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl index 635ce9383..ecdccfbf1 100755 --- a/contrib/bug_email.pl +++ b/contrib/bug_email.pl @@ -37,7 +37,7 @@ # # You need to work with bug_email.pl the MIME::Parser installed. # -# $Id: bug_email.pl,v 1.6 2000/03/18 23:32:49 seth%cs.brandeis.edu Exp $ +# $Id: bug_email.pl,v 1.7 2000/08/30 21:47:17 cyeh%bluemartini.com Exp $ ############################################################### # 02/12/2000 (SML) @@ -285,10 +285,10 @@ sub getEnumList( $ ) # Uses the global var. $Control{ 'priority' } sub CheckPriority { - my $prio = ($Control{'priority'} ||= ""); + my $prio = $Control{'priority'}; my @all_prios = getEnumList( "priority" ); - if( (lsearch( \@all_prios, $prio ) == -1) || $prio eq "" ) { + if( $prio eq "" || (lsearch( \@all_prios, $prio ) == -1) ) { # OK, Prio was not defined - create Answer my $Text = "You sent wrong priority-setting, valid values are:" . join( "\n\t", @all_prios ) . "\n\n"; -- cgit v1.2.3-24-g4f1b