summaryrefslogtreecommitdiffstats
path: root/editcomponents.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 /editcomponents.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 'editcomponents.cgi')
-rwxr-xr-xeditcomponents.cgi8
1 files changed, 4 insertions, 4 deletions
diff --git a/editcomponents.cgi b/editcomponents.cgi
index 6f8bc99f2..1f86b03a8 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) = @_;