diff options
author | mkanat%kerio.com <> | 2005-08-13 21:27:03 +0200 |
---|---|---|
committer | mkanat%kerio.com <> | 2005-08-13 21:27:03 +0200 |
commit | dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df (patch) | |
tree | 9836708e345769706c774f799701aa5b40b02cc5 /Bugzilla/Classification.pm | |
parent | 71a6b9cf80cd368fd3fd69d673ddf10142763e59 (diff) | |
download | bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.tar.gz bugzilla-dddc17ec8b38d7f90b7be7d9fd6ab9629077f3df.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 'Bugzilla/Classification.pm')
-rw-r--r-- | Bugzilla/Classification.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Bugzilla/Classification.pm b/Bugzilla/Classification.pm index c35c0ba9b..4f50848a2 100644 --- a/Bugzilla/Classification.pm +++ b/Bugzilla/Classification.pm @@ -105,7 +105,7 @@ sub description { return $_[0]->{'description'}; } #### Subroutines #### ############################### -sub get_all_classifications () { +sub get_all_classifications { my $dbh = Bugzilla->dbh; my $ids = $dbh->selectcol_arrayref(q{ @@ -118,7 +118,7 @@ sub get_all_classifications () { return @classifications; } -sub check_classification ($) { +sub check_classification { my ($class_name) = @_; unless ($class_name) { |