fix submitted for 42809: bug_email.pl doesn't allow for priority = 0

patch submitted by brad@xyu.dhs.org (Brad Sarsfield)

diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl
index 635ce93834096ca51f0490bcb2f9f60065908574..ecdccfbf1b2417e11cddcb25dd1c4049ff0cb9d3 100755 (executable)
--- 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";