Erst mal alle Module zusammen

git-svn-id: http://svn.brehm-online.com/svn/my-stuff/Perl@38 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa

diff --git a/bin/get-perl-modules.pl b/bin/get-perl-modules.pl
index 474de60e93592c43ff78eca3714d656960acfedc..65550e962b09c42da631fd7b037df33511b993f9 100755 (executable)
--- a/bin/get-perl-modules.pl
+++ b/bin/get-perl-modules.pl
@@ -56,6 +56,7 @@ use Data::Dumper;
 use Config;
 use Pod::Usage;
 use Getopt::Long;
+use Cwd 'abs_path';
 
 $Data::Dumper::Indent = 1;
 $Data::Dumper::Sortkeys = 1;
@@ -101,6 +102,8 @@ if ($show_version) {
     exit 0;
 }
 
+print "Geladene Module: " . Dumper(\%INC) if $verbose > 1;
+
 my $arch = $Config{'archname'};
 my $version = $Config{'version'};
 
@@ -111,13 +114,33 @@ my $va_lib_dir = $Config{'vendorarch'};
 my $sp_lib_dir = $Config{'sitelib'};
 my $sa_lib_dir = $Config{'sitearch'};
 
-for my $dir ( @INC ) {
+if ( $verbose ) {
+       print <<ENDE;
+Standard-Modul-Verzeichnisse:
+Core-Modul-Verzeichnis:        $cp_lib_dir
+Core-Arch-Modul-Verzeichnis:   $ca_lib_dir
+Vendor-Modul-Verzeichnis:      $vp_lib_dir
+Vendor-Arch-Modul-Verzeichnis: $va_lib_dir
+Site-Modul-Verzeichnis:        $sp_lib_dir
+Site-Arch-Modul-Verzeichnis:   $sa_lib_dir
+
+ENDE
+}
+
+print "Include-Verzeichnisse: " . Dumper(\@INC) if $verbose;
+
+for my $d ( @INC ) {
+
+       my $dir = abs_path($d);
 
     if ( -d $dir ) {
         print "\nDurchsuche Verzeichnis '$dir' ...\n" if $verbose;
         $cur_dir = $dir;
         find( \&wanted, $dir );
     }
+       else {
+               warn "$dir ist kein Verzeichnis.\n";
+       }
 }
 
 sub wanted {