From: Frédéric Buclin <LpSolit@gmail.com>
Date: Sun, 31 Jul 2011 11:56:13 +0000 (+0200)
Subject: Bug 655912: install-module.pl is unable to install LWP::UserAgent on Perl <5.8.8... 
X-Git-Tag: bugzilla-4.0.2~11
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b0d143fe406cf5e9bd5e858e2edea1837f947a12;p=thirdparty%2Fbugzilla.git

Bug 655912: install-module.pl is unable to install LWP::UserAgent on Perl <5.8.8, because LWP 6.0 now requires 5.8.8 as a minimum
r/a=mkanat
---

diff --git a/Bugzilla/Install/CPAN.pm b/Bugzilla/Install/CPAN.pm
index 74b87ae4c6..b1f3133c39 100644
--- a/Bugzilla/Install/CPAN.pm
+++ b/Bugzilla/Install/CPAN.pm
@@ -164,8 +164,20 @@ sub install_module {
     if (!$module) {
         die install_string('no_such_module', { module => $name }) . "\n";
     }
+    my $version = $module->cpan_version;
+    my $module_name = $name;
+
+    if ($name eq 'LWP::UserAgent' && $^V lt v5.8.8) {
+        # LWP 6.x requires Perl 5.8.8 or newer.
+        # As PAUSE only indexes the very last version of each module,
+        # we have to specify the path to the tarball ourselves.
+        $name = 'GAAS/libwww-perl-5.837.tar.gz';
+        # This tarball contains LWP::UserAgent 5.835.
+        $version = '5.835';
+    }
+
     print install_string('install_module', 
-              { module => $name, version => $module->cpan_version }) . "\n";
+              { module => $module_name, version => $version }) . "\n";
 
     if (_always_test($name)) {
         CPAN::Shell->install($name);