diff options
author | mkanat%kerio.com <> | 2005-08-09 12:58:58 +0000 |
---|---|---|
committer | mkanat%kerio.com <> | 2005-08-09 12:58:58 +0000 |
commit | 42a0e99d5c916b4123719d7a362e12e65e15fc2f (patch) | |
tree | 4f93a13b5360e7621601384e04e70dc455ff0c46 /editcomponents.cgi | |
parent | Bug 285700: bump minimum File::Spec version to 0.84 to deal with taint errors (diff) | |
download | bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.tar.gz bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.tar.bz2 bugzilla-42a0e99d5c916b4123719d7a362e12e65e15fc2f.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-x | editcomponents.cgi | 8 |
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) = @_; |