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 /Bugzilla/Version.pm | |
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 'Bugzilla/Version.pm')
-rw-r--r-- | Bugzilla/Version.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Bugzilla/Version.pm b/Bugzilla/Version.pm index 3a460e028..473a186c2 100644 --- a/Bugzilla/Version.pm +++ b/Bugzilla/Version.pm @@ -97,7 +97,7 @@ sub product_id { return $_[0]->{'product_id'}; } ##### Subroutines ### ############################### -sub get_versions_by_product ($) { +sub get_versions_by_product { my ($product_id) = @_; my $dbh = Bugzilla->dbh; @@ -123,7 +123,7 @@ sub get_versions_by_product ($) { return @versions; } -sub check_version ($$) { +sub check_version { my ($product, $version_name) = @_; $version_name || ThrowUserError('version_not_specified'); |