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 <mkanat@bugzilla.org> r=LpSolit, a=justdave

---
 checksetup.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'checksetup.pl')

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 
-- 
cgit v1.2.3-24-g4f1b