From dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df Mon Sep 17 00:00:00 2001
From: "mkanat%kerio.com" <>
Date: Sat, 13 Aug 2005 19:27:03 +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 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) = @_;
 
-- 
cgit v1.2.3-24-g4f1b