diff options
author | mkanat%kerio.com <> | 2005-08-09 14:58:58 +0200 |
---|---|---|
committer | mkanat%kerio.com <> | 2005-08-09 14:58:58 +0200 |
commit | 42a0e99d5c916b4123719d7a362e12e65e15fc2f (patch) | |
tree | 4f93a13b5360e7621601384e04e70dc455ff0c46 /checksetup.pl | |
parent | 51f0717b4285af69f22b635751b6f4a62d1f7da8 (diff) | |
download | bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.tar.gz bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.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 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 |