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 /checksetup.pl | |
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 'checksetup.pl')
-rwxr-xr-x | checksetup.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/checksetup.pl b/checksetup.pl index ef659b732..8364a54a8 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -519,14 +519,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. @@ -1616,7 +1616,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'"); @@ -1657,7 +1657,7 @@ sub AddGroup { my $headernum = 1; -sub AddFDef ($$$) { +sub AddFDef { my ($name, $description, $mailhead) = (@_); my $sth = $dbh->prepare("SELECT fieldid FROM fielddefs " . @@ -1751,7 +1751,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 |