summaryrefslogtreecommitdiffstats
path: root/editproducts.cgi
diff options
context:
space:
mode:
authormkanat%kerio.com <>2005-08-09 14:58:58 +0200
committermkanat%kerio.com <>2005-08-09 14:58:58 +0200
commit42a0e99d5c916b4123719d7a362e12e65e15fc2f (patch)
tree4f93a13b5360e7621601384e04e70dc455ff0c46 /editproducts.cgi
parent51f0717b4285af69f22b635751b6f4a62d1f7da8 (diff)
downloadbugzilla-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 'editproducts.cgi')
-rwxr-xr-xeditproducts.cgi18
1 files changed, 9 insertions, 9 deletions
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 <A HREF=\"query.cgi\">query page</A>", @_);