diff options
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 3a7f42559..f8385449e 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 |