From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 29 Jul 2013 09:56:54 +0000 (+0200)
Subject: InstallationCheck: Parameter dist_name wenn Modulname != Distributionsname
X-Git-Tag: release-3.1.0beta1~138
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/da3de35067ce7bb006bfff23898d2e5a492e53fc?ds=sidebyside;hp=--cc

InstallationCheck: Parameter dist_name wenn Modulname != Distributionsname

Beispiel: name = LWP und dist_name = libwww-perl
---

da3de35067ce7bb006bfff23898d2e5a492e53fc
diff --git a/SL/InstallationCheck.pm b/SL/InstallationCheck.pm
index 04435e1f3..dd31d20b0 100644
--- a/SL/InstallationCheck.pm
+++ b/SL/InstallationCheck.pm
@@ -50,7 +50,7 @@ BEGIN {
 
 @developer_modules = (
   { name => "Devel::REPL",                         url => "http://search.cpan.org/~doy/",       debian => 'libdevel-repl-perl' },
-  { name => "LWP::Simple",                         url => "http://search.cpan.org/~gaas/",      debian => 'libwww-perl' },
+  { name => "LWP::Simple",                         url => "http://search.cpan.org/~gaas/",      debian => 'libwww-perl', dist_name => 'libwww-perl' },
   { name => "Moose::Role",                         url => "http://search.cpan.org/~doy/",       debian => 'libmoose-role-perl' },
   { name => "Perl::Tags",                          url => "http://search.cpan.org/~osfameron/", debian => 'libperl-tags-perl' },
   { name => "Test::Deep",                          url => "http://search.cpan.org/~rjbs/",      debian => 'libtest-deep-perl' },
diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl
index 9637f558f..6f76e3f45 100755
--- a/scripts/installation_check.pl
+++ b/scripts/installation_check.pl
@@ -155,6 +155,7 @@ sub check_module {
   my ($module, %role) = @_;
 
   my $line = "Looking for $module->{fullname}";
+  $line   .= " (from $module->{dist_name})" if $module->{dist_name};
   my ($res, $ver) = SL::InstallationCheck::module_available($module->{"name"}, $module->{version});
   if ($res) {
     my $ver_string = ref $ver && $ver->can('numify') ? $ver->numify : $ver ? $ver : 'no version';