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 r=LpSolit, a=justdave --- Bugzilla/Product.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Bugzilla/Product.pm') diff --git a/Bugzilla/Product.pm b/Bugzilla/Product.pm index 26c80103f..7af2995c2 100644 --- a/Bugzilla/Product.pm +++ b/Bugzilla/Product.pm @@ -178,7 +178,7 @@ sub classification_id { return $_[0]->{'classification_id'}; } #### Subroutines ###### ############################### -sub get_products_by_classification ($) { +sub get_products_by_classification { my ($class_id) = @_; my $dbh = Bugzilla->dbh; $class_id ||= DEFAULT_CLASSIFICATION_ID; @@ -205,7 +205,7 @@ sub get_products_by_classification ($) { return @products; } -sub get_all_products () { +sub get_all_products { my $dbh = Bugzilla->dbh; my $ids = $dbh->selectcol_arrayref(q{ @@ -218,7 +218,7 @@ sub get_all_products () { return @products; } -sub check_product ($) { +sub check_product { my ($product_name) = @_; unless ($product_name) { -- cgit v1.2.3-24-g4f1b