From 42a0e99d5c916b4123719d7a362e12e65e15fc2f Mon Sep 17 00:00:00 2001
From: "mkanat%kerio.com" <>
Date: Tue, 9 Aug 2005 12:58:58 +0000
Subject: Bug 303669: Bugzilla mis-uses perl subroutine prototypes Patch By Max
 Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=justdave

---
 editvalues.cgi | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'editvalues.cgi')

diff --git a/editvalues.cgi b/editvalues.cgi
index cd73daeab..897498db3 100755
--- a/editvalues.cgi
+++ b/editvalues.cgi
@@ -39,14 +39,14 @@ our @valid_fields = ('op_sys', 'rep_platform', 'priority', 'bug_severity',);
 ######################################################################
 
 # Returns whether or not the specified table exists in the @tables array.
-sub FieldExists ($) {
+sub FieldExists {
   my ($field) = @_;
 
   return lsearch(\@valid_fields, $field) >= 0;
 }
 
 # Same as FieldExists, but emits and error and dies if it fails.
-sub FieldMustExist ($) {
+sub FieldMustExist {
     my ($field)= @_;
 
     $field ||
@@ -58,7 +58,7 @@ sub FieldMustExist ($) {
 }
 
 # Returns if the specified value exists for the field specified.
-sub ValueExists ($$) {
+sub ValueExists {
     my ($field, $value) = @_;
     FieldMustExist($field);
     trick_taint($field);
@@ -75,7 +75,7 @@ sub ValueExists ($$) {
 }
 
 # Same check as ValueExists, emits an error text and dies if it fails.
-sub ValueMustExist ($$) {
+sub ValueMustExist {
     my ($field, $value)= @_;
 
     # Values may not be empty (it's very difficult to deal 
-- 
cgit v1.2.3-24-g4f1b