Switch from LWP::Simple to wget invocation for downloading JIRA project info - because the JIRA URL uses the https: protocol, LWP::Simple requires the LWP::Protocol::https module, which is not included by default in many Perl installations, e.g. Debian-based distros

git-svn-id: https://svn.apache.org/repos/asf/lucene/dev/trunk@1139056 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
Steven Rowe 2011-06-23 20:10:53 +00:00
parent f5991e3de0
commit 7525579b6d
1 changed files with 2 additions and 2 deletions

View File

@ -23,7 +23,6 @@
use strict; use strict;
use warnings; use warnings;
use LWP::Simple;
my $project_info_url = 'https://issues.apache.org/jira/rest/api/2.0.alpha1/project/LUCENE'; my $project_info_url = 'https://issues.apache.org/jira/rest/api/2.0.alpha1/project/LUCENE';
my $jira_url_prefix = 'http://issues.apache.org/jira/browse/'; my $jira_url_prefix = 'http://issues.apache.org/jira/browse/';
@ -674,7 +673,8 @@ sub setup_release_dates {
'2.4.0' => '2008-10-06', '2.4.1' => '2009-03-09', '2.4.0' => '2008-10-06', '2.4.1' => '2009-03-09',
'2.9.0' => '2009-09-23', '2.9.1' => '2009-11-06', '2.9.0' => '2009-09-23', '2.9.1' => '2009-11-06',
'3.0.0' => '2009-11-25'); '3.0.0' => '2009-11-25');
my $project_info_json = get($project_info_url) || die "Unable to download $project_info_url";
my $project_info_json = `wget --no-check-certificate -O - $project_info_url`;
my $project_info = json2perl($project_info_json); my $project_info = json2perl($project_info_json);
for my $version (@{$project_info->{versions}}) { for my $version (@{$project_info->{versions}}) {
if ($version->{releaseDate}) { if ($version->{releaseDate}) {