Fehlende Pakete fürs beta Release

diff --git a/SL/InstallationCheck.pm b/SL/InstallationCheck.pm
index 37f276c..f4672aa 100644 (file)
--- a/SL/InstallationCheck.pm
+++ b/SL/InstallationCheck.pm
@@ -28,6 +28,8 @@ BEGIN {
   { name => "Rose::DB::Object",                    url => "http://search.cpan.org/~jsiracusa/", debian => 'librose-db-object-perl' },
   { name => "String::ShellQuote", version => 1.01, url => "http://search.cpan.org/~rosch/",     debian => 'libstring-shellquote-perl' },
   { name => "Sort::Naturally",                     url => "http://search.cpan.org/~sburke/",    debian => 'libsort-naturally-perl' },
+  # Test::Harness is core, so no Debian packages. Test::Harness 3.00 was first packaged in 5.10.1
+  { name => "Test::Harness",   version => '3.00',  url => "http://search.cpan.org/~petdance/",  },
   { name => "Template",        version => '2.18',  url => "http://search.cpan.org/~abw/",       debian => 'libtemplate-perl' },
   { name => "Text::CSV_XS",    version => '0.23',  url => "http://search.cpan.org/~hmbrand/",   debian => 'libtext-csv-xs-perl' },
   { name => "Text::Iconv",     version => '1.2',   url => "http://search.cpan.org/~mpiotr/",    debian => 'libtext-iconv-perl' },

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index 9024221..bd58c07 100755 (executable)
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -35,7 +35,14 @@ my (%uselines, %modules, %supplied, %requires);
   },
   'Devel::REPL' => {
     'namespace::clean'                   => 1,
-  }
+  },
+  'Email::MIME' => {
+    'Email::MIME::Creator'               => 1,
+  },
+  'Test::Harness' => {
+    'TAP::Parser'                        => 1,
+    'TAP::Parser::Aggregator'            => 1,
+  },
 );
 
 GetOptions(
@@ -106,6 +113,11 @@ for my $useline (keys %uselines) {
   }
 }
 
+# have all documented modules mentioned here
+$modules{$_->{name}} ||= { status => 'required' } for @SL::InstallationCheck::required_modules;
+$modules{$_->{name}} ||= { status => 'optional' } for @SL::InstallationCheck::optional_modules;
+$modules{$_->{name}} ||= { status => 'developer' } for @SL::InstallationCheck::developer_modules;
+
 # build transitive closure for documented dependancies
 my $changed = 1;
 while ($changed) {