aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormkanat%kerio.com <>2005-08-13 19:27:03 +0000
committermkanat%kerio.com <>2005-08-13 19:27:03 +0000
commitdddc17ec8b38d7f90b7be7d9fd6ab9629077f3df (patch)
tree9836708e345769706c774f799701aa5b40b02cc5 /editvalues.cgi
parentBug 301664: Hook for field-descs.html.tmpl (diff)
downloadbugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.gz
bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.bz2
bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.zip
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-xeditvalues.cgi8
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