From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 10 Feb 2011 12:10:36 +0000 (+0100)
Subject: Merge branch 'master' of git@lx-office.linet-services.de:lx-office-erp
X-Git-Tag: release-2.6.3~61^2~4
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/88ece3cf8f702fc8c43abd627358d700eb0cf1c5?hp=-c

Merge branch 'master' of git@lx-office.linet-services.de:lx-office-erp
---

88ece3cf8f702fc8c43abd627358d700eb0cf1c5
diff --combined scripts/find-use.pl
index 4fcb030af,554947d76..84129c29f
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@@ -79,10 -79,12 +79,12 @@@ for my $useline (keys %uselines) 
    next if $useline =~ /^most and offer that in a small/; # YAML
  
    my $version = Module::CoreList->first_release($module);
-   $modules{$module} = $supplied{$module}     ? 'included'
-                     : $version               ? sprintf '%2.6f', $version
-                     : is_documented($module) ? 'required'
-                     : '!missing';
+   $modules{$module} = { status => $supplied{$module}     ? 'included'
+                                 : $version               ? sprintf '%2.6f', $version
+                                 : is_documented($module) ? 'required'
+                                 : '!missing',
+                         files  => $uselines{$useline},
+                       };
  
    # build requirement tree
    for my $file (@{ $uselines{$useline} }) {
@@@ -99,19 -101,21 +101,21 @@@ while ($changed) 
    $changed = 0;
    for my $src_module (keys %requires) {
      for my $dst_module (keys %{ $requires{$src_module} }) {
-       if (   $modules{$src_module} =~ /^required/
-           && $modules{$dst_module} eq '!missing') {
-         $modules{$dst_module} = "required"; # . ", via $src_module";
+       if (   $modules{$src_module}
+           && $modules{$dst_module}
+           && $modules{$src_module}->{status} =~ /^required/
+           && $modules{$dst_module}->{status} eq '!missing') {
+         $modules{$dst_module}->{status} = "required"; # . ", via $src_module";
          $changed = 1;
        }
      }
    }
  }
  
- print sprintf "%8s : %s", color_text($modules{$_}), $_
+ print sprintf "%8s : %s (%s)", color_text($modules{$_}->{status}), $_, join(' ', @{ $modules{$_}->{files} || [] })
    for sort {
-        $modules{$a} cmp $modules{$b}
-     ||          $a  cmp $b
+        $modules{$a}->{status} cmp $modules{$b}->{status}
+     ||                    $a  cmp $b
    } keys %modules;
  
  sub modulize {
@@@ -184,13 -188,11 +188,13 @@@ This module is included in C<modules/*>
  This module is documented in C<SL:InstallationCheck> to be necessary, or is a
  dependancy of one of these. Everything alright.
  
 -= item !missing
 +=item !missing
  
  These modules are neither core, nor included, nor required. This is ok for
  developer tools, but should never occur for modules the actual program uses.
  
 +=back
 +
  =head1 AUTHOR
  
  http://www.ledgersmb.org/ - The LedgerSMB team