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/Milestone.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/Milestone.pm')
-rw-r--r-- | Bugzilla/Milestone.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Bugzilla/Milestone.pm b/Bugzilla/Milestone.pm index 6956d5313..fa8fc0f82 100644 --- a/Bugzilla/Milestone.pm +++ b/Bugzilla/Milestone.pm @@ -99,7 +99,7 @@ sub sortkey { return $_[0]->{'sortkey'}; } ##### Subroutines ##### ################################ -sub get_milestones_by_product ($) { +sub get_milestones_by_product { my ($product_id) = @_; my $dbh = Bugzilla->dbh; @@ -125,7 +125,7 @@ sub get_milestones_by_product ($) { return @milestones; } -sub check_milestone ($$) { +sub check_milestone { my ($product, $milestone_name) = @_; unless ($milestone_name) { @@ -142,7 +142,7 @@ sub check_milestone ($$) { return $milestone; } -sub check_sort_key ($$) { +sub check_sort_key { my ($milestone_name, $sortkey) = @_; # Keep a copy in case detaint_signed() clears the sortkey my $stored_sortkey = $sortkey; |