diff options
author | mkanat%kerio.com <> | 2005-08-13 21:27:03 +0200 |
---|---|---|
committer | mkanat%kerio.com <> | 2005-08-13 21:27:03 +0200 |
commit | dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df (patch) | |
tree | 9836708e345769706c774f799701aa5b40b02cc5 /editvalues.cgi | |
parent | 71a6b9cf80cd368fd3fd69d673ddf10142763e59 (diff) | |
download | bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.gz bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.xz |
Bug 303669: Bugzilla mis-uses perl subroutine prototypes
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=justdave
Diffstat (limited to 'editvalues.cgi')
-rwxr-xr-x | editvalues.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
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 |