From dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df Mon Sep 17 00:00:00 2001 From: "mkanat%kerio.com" <> Date: Sat, 13 Aug 2005 19:27:03 +0000 Subject: Bug 303669: Bugzilla mis-uses perl subroutine prototypes Patch By Max Kanat-Alexander 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