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 r=LpSolit, a=justdave --- Bugzilla/Bug.pm | 32 ++++++++++++++++---------------- Bugzilla/BugMail.pm | 16 ++++++++-------- Bugzilla/Classification.pm | 4 ++-- Bugzilla/Component.pm | 2 +- Bugzilla/DB.pm | 6 +++--- Bugzilla/Field.pm | 4 ++-- Bugzilla/Group.pm | 4 ++-- Bugzilla/Milestone.pm | 6 +++--- Bugzilla/Product.pm | 6 +++--- Bugzilla/Template.pm | 2 +- Bugzilla/Token.pm | 6 +++--- Bugzilla/User.pm | 8 ++++---- Bugzilla/Util.pm | 12 ++++++------ Bugzilla/Version.pm | 4 ++-- buglist.cgi | 2 +- checksetup.pl | 10 +++++----- docs/makedocs.pl | 2 +- editclassifications.cgi | 2 +- editcomponents.cgi | 8 ++++---- editflagtypes.cgi | 2 +- editgroups.cgi | 2 +- editkeywords.cgi | 2 +- editproducts.cgi | 18 +++++++++--------- editvalues.cgi | 8 ++++---- process_bug.cgi | 2 +- sanitycheck.cgi | 2 +- userprefs.cgi | 4 ++-- 27 files changed, 88 insertions(+), 88 deletions(-) diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm index c7e763748..d20af1268 100755 --- a/Bugzilla/Bug.pm +++ b/Bugzilla/Bug.pm @@ -339,7 +339,7 @@ sub actual_time { return $self->{'actual_time'}; } -sub any_flags_requesteeble () { +sub any_flags_requesteeble { my ($self) = @_; return $self->{'any_flags_requesteeble'} if exists $self->{'any_flags_requesteeble'}; @@ -351,7 +351,7 @@ sub any_flags_requesteeble () { return $self->{'any_flags_requesteeble'}; } -sub attachments () { +sub attachments { my ($self) = @_; return $self->{'attachments'} if exists $self->{'attachments'}; return [] if $self->{'error'}; @@ -359,7 +359,7 @@ sub attachments () { return $self->{'attachments'}; } -sub assigned_to () { +sub assigned_to { my ($self) = @_; return $self->{'assigned_to'} if exists $self->{'assigned_to'}; $self->{'assigned_to_id'} = 0 if $self->{'error'}; @@ -367,7 +367,7 @@ sub assigned_to () { return $self->{'assigned_to'}; } -sub blocked () { +sub blocked { my ($self) = @_; return $self->{'blocked'} if exists $self->{'blocked'}; return [] if $self->{'error'}; @@ -378,7 +378,7 @@ sub blocked () { # Even bugs in an error state always have a bug_id. sub bug_id { $_[0]->{'bug_id'}; } -sub cc () { +sub cc { my ($self) = @_; return $self->{'cc'} if exists $self->{'cc'}; return [] if $self->{'error'}; @@ -396,7 +396,7 @@ sub cc () { return $self->{'cc'}; } -sub dependson () { +sub dependson { my ($self) = @_; return $self->{'dependson'} if exists $self->{'dependson'}; return [] if $self->{'error'}; @@ -405,7 +405,7 @@ sub dependson () { return $self->{'dependson'}; } -sub flag_types () { +sub flag_types { my ($self) = @_; return $self->{'flag_types'} if exists $self->{'flag_types'}; return [] if $self->{'error'}; @@ -430,7 +430,7 @@ sub flag_types () { return $self->{'flag_types'}; } -sub keywords () { +sub keywords { my ($self) = @_; return $self->{'keywords'} if exists $self->{'keywords'}; return () if $self->{'error'}; @@ -456,7 +456,7 @@ sub longdescs { return $self->{'longdescs'}; } -sub milestoneurl () { +sub milestoneurl { my ($self) = @_; return $self->{'milestoneurl'} if exists $self->{'milestoneurl'}; return '' if $self->{'error'}; @@ -464,7 +464,7 @@ sub milestoneurl () { return $self->{'milestoneurl'}; } -sub qa_contact () { +sub qa_contact { my ($self) = @_; return $self->{'qa_contact'} if exists $self->{'qa_contact'}; return undef if $self->{'error'}; @@ -480,7 +480,7 @@ sub qa_contact () { return $self->{'qa_contact'}; } -sub reporter () { +sub reporter { my ($self) = @_; return $self->{'reporter'} if exists $self->{'reporter'}; $self->{'reporter_id'} = 0 if $self->{'error'}; @@ -489,7 +489,7 @@ sub reporter () { } -sub show_attachment_flags () { +sub show_attachment_flags { my ($self) = @_; return $self->{'show_attachment_flags'} if exists $self->{'show_attachment_flags'}; @@ -694,7 +694,7 @@ sub choices { # the alias. # Queries the database for the bug with a given alias, and returns # the ID of the bug if it exists or the undefined value if it doesn't. -sub bug_alias_to_id ($) { +sub bug_alias_to_id { my ($alias) = @_; return undef unless Param("usebugaliases"); my $dbh = Bugzilla->dbh; @@ -707,7 +707,7 @@ sub bug_alias_to_id ($) { # Subroutines ##################################################################### -sub AppendComment ($$$;$$$) { +sub AppendComment { my ($bugid, $whoid, $comment, $isprivate, $timestamp, $work_time) = @_; $work_time ||= 0; my $dbh = Bugzilla->dbh; @@ -992,7 +992,7 @@ sub CountOpenDependencies { return @dependencies; } -sub ValidateComment ($) { +sub ValidateComment { my ($comment) = @_; if (defined($comment) && length($comment) > MAX_COMMENT_LENGTH) { @@ -1242,7 +1242,7 @@ sub ValidateBugAlias { } # Validate and return a hash of dependencies -sub ValidateDependencies($$$) { +sub ValidateDependencies { my $fields = {}; $fields->{'dependson'} = shift; $fields->{'blocked'} = shift; diff --git a/Bugzilla/BugMail.pm b/Bugzilla/BugMail.pm index 6bbebfa7c..35026b48e 100644 --- a/Bugzilla/BugMail.pm +++ b/Bugzilla/BugMail.pm @@ -112,7 +112,7 @@ END # All the names are email addresses, not userids # values are scalars, except for cc, which is a list # This hash usually comes from the "mailrecipients" var in a template call. -sub Send($;$) { +sub Send { my ($id, $forced) = (@_); # This only works in a sub. Probably something to do with the @@ -122,7 +122,7 @@ sub Send($;$) { return ProcessOneBug($id, $forced); } -sub ProcessOneBug($$) { +sub ProcessOneBug { my ($id, $forced) = (@_); my @headerlist; @@ -474,7 +474,7 @@ sub ProcessOneBug($$) { return {'sent' => \@sent, 'excluded' => \@excluded}; } -sub sendMail($$$$$$$$$$$$) { +sub sendMail { my ($user, $hlRef, $relRef, $valueRef, $dmhRef, $fdRef, $diffRef, $newcomments, $anyprivate, $start, $id) = @_; @@ -608,7 +608,7 @@ sub sendMail($$$$$$$$$$$$) { return 1; } -sub MessageToMTA ($) { +sub MessageToMTA { my ($msg) = (@_); return if (Param('mail_delivery_method') eq "none"); @@ -639,7 +639,7 @@ sub MessageToMTA ($) { $mailer->close; } -sub encode_qp_words($) { +sub encode_qp_words { my ($line) = (@_); my @encoded; foreach my $word (split / /, $line) { @@ -652,7 +652,7 @@ sub encode_qp_words($) { return join(' ', @encoded); } -sub encode_message($$) { +sub encode_message { my ($header, $body) = @_; # read header into MIME::Entity @@ -735,14 +735,14 @@ sub encode_message($$) { # its value will be placed into the string. If it's not a key in the hash, # then the value of the parameter called "some_variable_name" will be placed # into the string. -sub PerformSubsts ($;$) { +sub PerformSubsts { my ($str, $substs) = (@_); $str =~ s/%([a-z]*)%/(defined $substs->{$1} ? $substs->{$1} : Param($1))/eg; return $str; } # Send the login name and password of the newly created account to the user. -sub MailPassword ($$) { +sub MailPassword { my ($login, $password) = (@_); my $template = Param("passwordmail"); my $msg = PerformSubsts($template, diff --git a/Bugzilla/Classification.pm b/Bugzilla/Classification.pm index c35c0ba9b..4f50848a2 100644 --- a/Bugzilla/Classification.pm +++ b/Bugzilla/Classification.pm @@ -105,7 +105,7 @@ sub description { return $_[0]->{'description'}; } #### Subroutines #### ############################### -sub get_all_classifications () { +sub get_all_classifications { my $dbh = Bugzilla->dbh; my $ids = $dbh->selectcol_arrayref(q{ @@ -118,7 +118,7 @@ sub get_all_classifications () { return @classifications; } -sub check_classification ($) { +sub check_classification { my ($class_name) = @_; unless ($class_name) { diff --git a/Bugzilla/Component.pm b/Bugzilla/Component.pm index 216616d98..f1d4c24b2 100644 --- a/Bugzilla/Component.pm +++ b/Bugzilla/Component.pm @@ -103,7 +103,7 @@ sub default_qa_contact { return $_[0]->{'initialqacontact'}; } #### Subroutines #### ############################### -sub get_components_by_product ($) { +sub get_components_by_product { my ($product_id) = @_; my $dbh = Bugzilla->dbh; diff --git a/Bugzilla/DB.pm b/Bugzilla/DB.pm index 43c14a551..67cf4ae9c 100644 --- a/Bugzilla/DB.pm +++ b/Bugzilla/DB.pm @@ -128,12 +128,12 @@ sub FetchOneColumn { return $row[0]; } -sub PushGlobalSQLState() { +sub PushGlobalSQLState { push @SQLStateStack, $_current_sth; push @SQLStateStack, $_fetchahead; } -sub PopGlobalSQLState() { +sub PopGlobalSQLState { die ("PopGlobalSQLState: stack underflow") if ( scalar(@SQLStateStack) < 1 ); $_fetchahead = pop @SQLStateStack; $_current_sth = pop @SQLStateStack; @@ -153,7 +153,7 @@ sub connect_shadow { Param("shadowdbsock"), $db_user, $db_pass); } -sub connect_main (;$) { +sub connect_main { my ($no_db_name) = @_; my $connect_to_db = $db_name; $connect_to_db = "" if $no_db_name; diff --git a/Bugzilla/Field.pm b/Bugzilla/Field.pm index ed82f805b..37771257c 100644 --- a/Bugzilla/Field.pm +++ b/Bugzilla/Field.pm @@ -27,7 +27,7 @@ use Bugzilla::Util; use Bugzilla::Error; -sub check_form_field ($$;$) { +sub check_form_field { my ($cgi, $fieldname, $legalsRef) = @_; my $dbh = Bugzilla->dbh; @@ -45,7 +45,7 @@ sub check_form_field ($$;$) { } } -sub check_form_field_defined ($$) { +sub check_form_field_defined { my ($cgi, $fieldname) = @_; if (!defined $cgi->param($fieldname)) { diff --git a/Bugzilla/Group.pm b/Bugzilla/Group.pm index 808860274..e24ccb254 100644 --- a/Bugzilla/Group.pm +++ b/Bugzilla/Group.pm @@ -106,7 +106,7 @@ sub is_active { return $_[0]->{'isactive'}; } ##### Module Subroutines ### ################################ -sub ValidateGroupName ($$) { +sub ValidateGroupName { my ($name, @users) = (@_); my $dbh = Bugzilla->dbh; my $query = "SELECT id FROM groups " . @@ -125,7 +125,7 @@ sub ValidateGroupName ($$) { return $ret; } -sub get_group_controls_by_product ($) { +sub get_group_controls_by_product { my ($product_id) = @_; my $dbh = Bugzilla->dbh; diff --git a/Bugzilla/Milestone.pm b/Bugzilla/Milestone.pm index 6956d5313..fa8fc0f82 100644 --- a/Bugzilla/Milestone.pm +++ b/Bugzilla/Milestone.pm @@ -99,7 +99,7 @@ sub sortkey { return $_[0]->{'sortkey'}; } ##### Subroutines ##### ################################ -sub get_milestones_by_product ($) { +sub get_milestones_by_product { my ($product_id) = @_; my $dbh = Bugzilla->dbh; @@ -125,7 +125,7 @@ sub get_milestones_by_product ($) { return @milestones; } -sub check_milestone ($$) { +sub check_milestone { my ($product, $milestone_name) = @_; unless ($milestone_name) { @@ -142,7 +142,7 @@ sub check_milestone ($$) { return $milestone; } -sub check_sort_key ($$) { +sub check_sort_key { my ($milestone_name, $sortkey) = @_; # Keep a copy in case detaint_signed() clears the sortkey my $stored_sortkey = $sortkey; diff --git a/Bugzilla/Product.pm b/Bugzilla/Product.pm index 26c80103f..7af2995c2 100644 --- a/Bugzilla/Product.pm +++ b/Bugzilla/Product.pm @@ -178,7 +178,7 @@ sub classification_id { return $_[0]->{'classification_id'}; } #### Subroutines ###### ############################### -sub get_products_by_classification ($) { +sub get_products_by_classification { my ($class_id) = @_; my $dbh = Bugzilla->dbh; $class_id ||= DEFAULT_CLASSIFICATION_ID; @@ -205,7 +205,7 @@ sub get_products_by_classification ($) { return @products; } -sub get_all_products () { +sub get_all_products { my $dbh = Bugzilla->dbh; my $ids = $dbh->selectcol_arrayref(q{ @@ -218,7 +218,7 @@ sub get_all_products () { return @products; } -sub check_product ($) { +sub check_product { my ($product_name) = @_; unless ($product_name) { diff --git a/Bugzilla/Template.pm b/Bugzilla/Template.pm index 5c5aff574..711144a6f 100644 --- a/Bugzilla/Template.pm +++ b/Bugzilla/Template.pm @@ -97,7 +97,7 @@ sub sortAcceptLanguage { # Returns the path to the templates based on the Accept-Language # settings of the user and of the available languages # If no Accept-Language is present it uses the defined default -sub getTemplateIncludePath () { +sub getTemplateIncludePath { # Return cached value if available # XXXX - mod_perl! diff --git a/Bugzilla/Token.pm b/Bugzilla/Token.pm index fe72915a3..717aeaf37 100644 --- a/Bugzilla/Token.pm +++ b/Bugzilla/Token.pm @@ -249,7 +249,7 @@ sub HasEmailChangeToken { return $token; } -sub GetTokenData($) { +sub GetTokenData { # Returns the userid, issuedate and eventdata for the specified token my ($token) = @_; @@ -263,7 +263,7 @@ sub GetTokenData($) { WHERE token = ?", undef, $token); } -sub DeleteToken($) { +sub DeleteToken { # Deletes specified token my ($token) = @_; @@ -280,7 +280,7 @@ sub DeleteToken($) { # Internal Functions ################################################################################ -sub _create_token($$$) { +sub _create_token { # Generates a unique token and inserts it into the database # Returns the token and the token timestamp my ($userid, $tokentype, $eventdata) = @_; diff --git a/Bugzilla/User.pm b/Bugzilla/User.pm index f9efcd248..5462aa5d4 100644 --- a/Bugzilla/User.pm +++ b/Bugzilla/User.pm @@ -1156,7 +1156,7 @@ sub get_userlist { return $self->{'userlist'}; } -sub insert_new_user ($$;$$) { +sub insert_new_user { my ($username, $realname, $password, $disabledtext) = (@_); my $dbh = Bugzilla->dbh; @@ -1201,7 +1201,7 @@ sub insert_new_user ($$;$$) { return $password; } -sub is_available_username ($;$) { +sub is_available_username { my ($username, $old_username) = @_; if(login_to_id($username) != 0) { @@ -1237,7 +1237,7 @@ sub is_available_username ($;$) { return 1; } -sub login_to_id ($) { +sub login_to_id { my ($login) = (@_); my $dbh = Bugzilla->dbh; # $login will only be used by the following SELECT statement, so it's safe. @@ -1252,7 +1252,7 @@ sub login_to_id ($) { } } -sub UserInGroup ($) { +sub UserInGroup { return defined Bugzilla->user->groups->{$_[0]} ? 1 : 0; } diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index 43100b160..d70bc13dd 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -138,7 +138,7 @@ sub url_decode { return $todecode; } -sub i_am_cgi () { +sub i_am_cgi { # I use SERVER_SOFTWARE because it's required to be # defined for all requests in the CGI spec. return exists $ENV{'SERVER_SOFTWARE'} ? 1 : 0; @@ -221,7 +221,7 @@ sub diff_strings { return ($removed, $added); } -sub wrap_comment ($) { +sub wrap_comment { my ($comment) = @_; my $wrappedcomment = ""; @@ -245,7 +245,7 @@ sub wrap_comment ($) { return $wrappedcomment; } -sub find_wrap_point ($$) { +sub find_wrap_point { my ($string, $maxpos) = @_; if (!$string) { return 0 } if (length($string) < $maxpos) { return length($string) } @@ -264,7 +264,7 @@ sub find_wrap_point ($$) { return $wrappoint; } -sub format_time ($;$) { +sub format_time { my ($date, $format) = @_; # If $format is undefined, try to guess the correct date format. @@ -316,7 +316,7 @@ sub format_time_decimal { return $newtime; } -sub file_mod_time ($) { +sub file_mod_time { my ($filename) = (@_); my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) @@ -324,7 +324,7 @@ sub file_mod_time ($) { return $mtime; } -sub bz_crypt ($) { +sub bz_crypt { my ($password) = @_; # The list of characters that can appear in a salt. Salts and hashes diff --git a/Bugzilla/Version.pm b/Bugzilla/Version.pm index 3a460e028..473a186c2 100644 --- a/Bugzilla/Version.pm +++ b/Bugzilla/Version.pm @@ -97,7 +97,7 @@ sub product_id { return $_[0]->{'product_id'}; } ##### Subroutines ### ############################### -sub get_versions_by_product ($) { +sub get_versions_by_product { my ($product_id) = @_; my $dbh = Bugzilla->dbh; @@ -123,7 +123,7 @@ sub get_versions_by_product ($) { return @versions; } -sub check_version ($$) { +sub check_version { my ($product, $version_name) = @_; $version_name || ThrowUserError('version_not_specified'); diff --git a/buglist.cgi b/buglist.cgi index 45c0db552..c307c8960 100755 --- a/buglist.cgi +++ b/buglist.cgi @@ -226,7 +226,7 @@ sub LookupNamedQuery { # # Returns: A boolean true value if the query existed in the database # before, and we updated it. A boolean false value otherwise. -sub InsertNamedQuery ($$$;$) { +sub InsertNamedQuery { my ($userid, $query_name, $query, $link_in_footer) = @_; $link_in_footer ||= 0; $query_name = trim($query_name); diff --git a/checksetup.pl b/checksetup.pl index f8385449e..3a7f42559 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -518,14 +518,14 @@ EOT die "Syntax error in localconfig"; } -sub LocalVarExists ($) +sub LocalVarExists { my ($name) = @_; return $main::{$name}; # if localconfig declared it, we're done. } my $newstuff = ""; -sub LocalVar ($$) +sub LocalVar { my ($name, $definition) = @_; return if LocalVarExists($name); # if localconfig declared it, we're done. @@ -1615,7 +1615,7 @@ $dbh->bz_setup_database(); # Populate groups table ########################################################################### -sub GroupDoesExist ($) +sub GroupDoesExist { my ($name) = @_; my $sth = $dbh->prepare("SELECT name FROM groups WHERE name='$name'"); @@ -1656,7 +1656,7 @@ sub AddGroup { my $headernum = 1; -sub AddFDef ($$$) { +sub AddFDef { my ($name, $description, $mailhead) = (@_); my $sth = $dbh->prepare("SELECT fieldid FROM fielddefs " . @@ -1750,7 +1750,7 @@ AddFDef("content", "Content", 0); # mkanat@bugzilla.org - bug 17453 # Create the values for the tables that hold what used to be enum types. # Don't populate the tables if the table isn't empty. -sub PopulateEnumTable ($@) { +sub PopulateEnumTable { my ($table, @valuelist) = @_; # If we encounter any of the keys in this hash, they are diff --git a/docs/makedocs.pl b/docs/makedocs.pl index 2fb0911b2..5a001ea06 100644 --- a/docs/makedocs.pl +++ b/docs/makedocs.pl @@ -52,7 +52,7 @@ else { # Subs ############################################################################### -sub MakeDocs($$) { +sub MakeDocs { my ($name, $cmdline) = @_; diff --git a/editclassifications.cgi b/editclassifications.cgi index 5e49d8336..e70d256c1 100755 --- a/editclassifications.cgi +++ b/editclassifications.cgi @@ -38,7 +38,7 @@ my $dbh = Bugzilla->dbh; my $template = Bugzilla->template; my $vars = {}; -sub LoadTemplate ($) { +sub LoadTemplate { my $action = shift; $action =~ /(\w+)/; diff --git a/editcomponents.cgi b/editcomponents.cgi index 6f8bc99f2..1f86b03a8 100755 --- a/editcomponents.cgi +++ b/editcomponents.cgi @@ -49,7 +49,7 @@ my $showbugcounts = (defined $cgi->param('showbugcounts')); # TestComponent: just returns if the specified product/component combination exists # CheckComponent: same check, optionally emit an error text -sub TestProduct ($) +sub TestProduct { my $prod = shift; @@ -60,7 +60,7 @@ sub TestProduct ($) return FetchOneColumn(); } -sub CheckProduct ($) +sub CheckProduct { my $prod = shift; @@ -75,7 +75,7 @@ sub CheckProduct ($) } } -sub TestComponent ($$) +sub TestComponent { my ($prod, $comp) = @_; @@ -89,7 +89,7 @@ sub TestComponent ($$) return FetchOneColumn(); } -sub CheckComponent ($$) +sub CheckComponent { my ($prod, $comp) = @_; diff --git a/editflagtypes.cgi b/editflagtypes.cgi index 57795f493..9984a8e8c 100755 --- a/editflagtypes.cgi +++ b/editflagtypes.cgi @@ -567,7 +567,7 @@ sub validateGroups { # added by the user and have passed all validation tests. # The only way to have invalid product/component combinations is to # hack the URL. So we silently ignore them, if any. -sub validateAndSubmit ($) { +sub validateAndSubmit { my ($id) = @_; my $dbh = Bugzilla->dbh; diff --git a/editgroups.cgi b/editgroups.cgi index 5e74163da..eb245dfd2 100755 --- a/editgroups.cgi +++ b/editgroups.cgi @@ -51,7 +51,7 @@ UserInGroup("creategroups") my $action = trim($cgi->param('action') || ''); # RederiveRegexp: update user_group_map with regexp-based grants -sub RederiveRegexp ($$) +sub RederiveRegexp { my $regexp = shift; my $gid = shift; diff --git a/editkeywords.cgi b/editkeywords.cgi index 8ad74710e..450d8cf5b 100755 --- a/editkeywords.cgi +++ b/editkeywords.cgi @@ -35,7 +35,7 @@ my $dbh = Bugzilla->dbh; use vars qw($template $vars); -sub Validate ($$) { +sub Validate { my ($name, $description) = @_; if ($name eq "") { ThrowUserError("keyword_blank_name"); diff --git a/editproducts.cgi b/editproducts.cgi index 18e845efc..de0459f13 100755 --- a/editproducts.cgi +++ b/editproducts.cgi @@ -54,7 +54,7 @@ my %ctl = ( # TestProduct: just returns if the specified product does exists # CheckProduct: same check, optionally emit an error text -sub TestProduct ($) +sub TestProduct { my $prod = shift; @@ -65,7 +65,7 @@ sub TestProduct ($) return FetchOneColumn(); } -sub CheckProduct ($) +sub CheckProduct { my $prod = shift; @@ -86,7 +86,7 @@ sub CheckProduct ($) # TestClassification: just returns if the specified classification does exists # CheckClassification: same check, optionally emit an error text -sub TestClassification ($) +sub TestClassification { my $cl = shift; @@ -97,7 +97,7 @@ sub TestClassification ($) return FetchOneColumn(); } -sub CheckClassification ($) +sub CheckClassification { my $cl = shift; @@ -119,7 +119,7 @@ sub CheckClassification ($) # we need this routine, which does things properly, and will # eventually be the only version. (The older versions assume a # $template->put_header() call has been made) -sub CheckClassificationNew ($) +sub CheckClassificationNew { my $cl = shift; @@ -135,7 +135,7 @@ sub CheckClassificationNew ($) } -sub CheckClassificationProduct ($$) +sub CheckClassificationProduct { my $cl = shift; my $prod = shift; @@ -162,7 +162,7 @@ sub CheckClassificationProduct ($$) } } -sub CheckClassificationProductNew ($$) +sub CheckClassificationProductNew { my ($cl, $prod) = @_; my $dbh = Bugzilla->dbh; @@ -190,7 +190,7 @@ sub CheckClassificationProductNew ($$) # Displays the form to edit a products parameters # -sub EmitFormElements ($$$$$$$$$) +sub EmitFormElements { my ($classification, $product, $description, $milestoneurl, $disallownew, $votesperuser, $maxvotesperbug, $votestoconfirm, $defaultmilestone) @@ -251,7 +251,7 @@ sub EmitFormElements ($$$$$$$$$) # Displays a text like "a.", "a or b.", "a, b or c.", "a, b, c or d." # -sub PutTrailer (@) +sub PutTrailer { my (@links) = ("Back to the query page", @_); 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 diff --git a/process_bug.cgi b/process_bug.cgi index 9a3db0a8f..e4daf38d5 100755 --- a/process_bug.cgi +++ b/process_bug.cgi @@ -210,7 +210,7 @@ check_form_field_defined($cgi, 'component'); # function and tests, if the comment was given. # If comments are required for functions is defined by params. # -sub CheckonComment( $ ) { +sub CheckonComment { my ($function) = (@_); # Param is 1 if comment should be added ! diff --git a/sanitycheck.cgi b/sanitycheck.cgi index 00a7ef0c5..7855862d8 100755 --- a/sanitycheck.cgi +++ b/sanitycheck.cgi @@ -727,7 +727,7 @@ if (defined $cgi->param('rebuildkeywordcache')) { # General bug checks ########################################################################### -sub BugCheck ($$;$$) { +sub BugCheck { my ($middlesql, $errortext, $repairparam, $repairtext) = @_; SendSQL("SELECT DISTINCT bugs.bug_id " . diff --git a/userprefs.cgi b/userprefs.cgi index 42ef255d3..ae04e7a72 100755 --- a/userprefs.cgi +++ b/userprefs.cgi @@ -337,7 +337,7 @@ sub DoPermissions { # No SavePermissions() because this panel has no changeable fields. -sub DoSavedSearches() { +sub DoSavedSearches { # 2004-12-13 - colin.ogilvie@gmail.com, bug 274397 # Need to work around the possibly missing query_format=advanced $vars->{'user'} = Bugzilla->user; @@ -362,7 +362,7 @@ sub DoSavedSearches() { $vars->{'queries'} = \@newqueries; } -sub SaveSavedSearches() { +sub SaveSavedSearches { my $cgi = Bugzilla->cgi; my $dbh = Bugzilla->dbh; my @queries = @{Bugzilla->user->queries}; -- cgit v1.2.3-24-g4f1b