aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormkanat%kerio.com <>2005-08-13 19:27:03 +0000
committermkanat%kerio.com <>2005-08-13 19:27:03 +0000
commitdddc17ec8b38d7f90b7be7d9fd6ab9629077f3df (patch)
tree9836708e345769706c774f799701aa5b40b02cc5 /editcomponents.cgi
parentBug 301664: Hook for field-descs.html.tmpl (diff)
downloadbugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.gz
bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.bz2
bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.zip
Bug 303669: Bugzilla mis-uses perl subroutine prototypes
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=justdave
Diffstat (limited to 'editcomponents.cgi')
-rwxr-xr-xeditcomponents.cgi8
1 files changed, 4 insertions, 4 deletions
diff --git a/editcomponents.cgi b/editcomponents.cgi
index c25f971fc..31b0a1171 100755
--- a/editcomponents.cgi
+++ b/editcomponents.cgi
@@ -49,7 +49,7 @@ my $showbugcounts = (defined $cgi->param('showbugcounts'));
# TestComponent: just returns if the specified product/component combination exists
# CheckComponent: same check, optionally emit an error text
-sub TestProduct ($)
+sub TestProduct
{
my $prod = shift;
@@ -60,7 +60,7 @@ sub TestProduct ($)
return FetchOneColumn();
}
-sub CheckProduct ($)
+sub CheckProduct
{
my $prod = shift;
@@ -75,7 +75,7 @@ sub CheckProduct ($)
}
}
-sub TestComponent ($$)
+sub TestComponent
{
my ($prod, $comp) = @_;
@@ -89,7 +89,7 @@ sub TestComponent ($$)
return FetchOneColumn();
}
-sub CheckComponent ($$)
+sub CheckComponent
{
my ($prod, $comp) = @_;