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

---
 editcomponents.cgi | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'editcomponents.cgi')

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) = @_;
 
-- 
cgit v1.2.3-24-g4f1b