From da3de35067ce7bb006bfff23898d2e5a492e53fc Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 29 Jul 2013 11:56:54 +0200 Subject: [PATCH] InstallationCheck: Parameter dist_name wenn Modulname != Distributionsname Beispiel: name = LWP und dist_name = libwww-perl --- SL/InstallationCheck.pm | 2 +- scripts/installation_check.pl | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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'; -- 2.20.1