Revision da3de350
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/InstallationCheck.pm | ||
|---|---|---|
| 50 | 50 |
|
| 51 | 51 |
@developer_modules = ( |
| 52 | 52 |
{ name => "Devel::REPL", url => "http://search.cpan.org/~doy/", debian => 'libdevel-repl-perl' },
|
| 53 |
{ name => "LWP::Simple", url => "http://search.cpan.org/~gaas/", debian => 'libwww-perl' },
|
|
| 53 |
{ name => "LWP::Simple", url => "http://search.cpan.org/~gaas/", debian => 'libwww-perl', dist_name => 'libwww-perl' },
|
|
| 54 | 54 |
{ name => "Moose::Role", url => "http://search.cpan.org/~doy/", debian => 'libmoose-role-perl' },
|
| 55 | 55 |
{ name => "Perl::Tags", url => "http://search.cpan.org/~osfameron/", debian => 'libperl-tags-perl' },
|
| 56 | 56 |
{ name => "Test::Deep", url => "http://search.cpan.org/~rjbs/", debian => 'libtest-deep-perl' },
|
| scripts/installation_check.pl | ||
|---|---|---|
| 155 | 155 |
my ($module, %role) = @_; |
| 156 | 156 |
|
| 157 | 157 |
my $line = "Looking for $module->{fullname}";
|
| 158 |
$line .= " (from $module->{dist_name})" if $module->{dist_name};
|
|
| 158 | 159 |
my ($res, $ver) = SL::InstallationCheck::module_available($module->{"name"}, $module->{version});
|
| 159 | 160 |
if ($res) {
|
| 160 | 161 |
my $ver_string = ref $ver && $ver->can('numify') ? $ver->numify : $ver ? $ver : 'no version';
|
Auch abrufbar als: Unified diff
InstallationCheck: Parameter dist_name wenn Modulname != Distributionsname
Beispiel: name = LWP und dist_name = libwww-perl