From 26a34e3320547212a2718d8de05da44bd14f6b47 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 30 Nov 2011 17:49:33 +0100
Subject: [PATCH] find-use: Unterscheidung zwischen required, optional,
 developer.

---
 scripts/find-use.pl | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index 84129c29f..f65143ee6 100755
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -30,7 +30,11 @@ my (%uselines, %modules, %supplied, %requires);
     'Template::Iterator'                 => 1,
     'Template::Plugin'                   => 1,
     'Template::Plugin::Filter'           => 1,
+    'Template::Plugin::HTML'             => 1,
   },
+  'Devel::REPL' => {
+    'namespace::clean'                   => 1,
+  }
 );
 
 find(sub {
@@ -81,7 +85,9 @@ for my $useline (keys %uselines) {
   my $version = Module::CoreList->first_release($module);
   $modules{$module} = { status => $supplied{$module}     ? 'included'
                                 : $version               ? sprintf '%2.6f', $version
-                                : is_documented($module) ? 'required'
+                                : is_required($module)   ? 'required'
+                                : is_optional($module)   ? 'optional'
+                                : is_developer($module)  ? 'developer'
                                 : '!missing',
                         files  => $uselines{$useline},
                       };
@@ -103,7 +109,7 @@ while ($changed) {
     for my $dst_module (keys %{ $requires{$src_module} }) {
       if (   $modules{$src_module}
           && $modules{$dst_module}
-          && $modules{$src_module}->{status} =~ /^required/
+          && $modules{$src_module}->{status} =~ /^(required|devel|optional)/
           && $modules{$dst_module}->{status} eq '!missing') {
         $modules{$dst_module}->{status} = "required"; # . ", via $src_module";
         $changed = 1;
@@ -128,11 +134,21 @@ sub modulize {
   }
 }
 
-sub is_documented {
+sub is_required {
   my ($module) = @_;
   grep { $_->{name} eq $module } @SL::InstallationCheck::required_modules;
 }
 
+sub is_optional {
+  my ($module) = @_;
+  grep { $_->{name} eq $module } @SL::InstallationCheck::optional_modules;
+}
+
+sub is_developer {
+  my ($module) = @_;
+  grep { $_->{name} eq $module } @SL::InstallationCheck::developer_modules;
+}
+
 sub color_text {
   my ($text) = @_;
   return color(get_color($text)) . $text . color('reset');
-- 
2.20.1