Ort des Moduls mit ausgegeben

diff --git a/get-perl-modules.pl b/get-perl-modules.pl
index fd744e1b6b3d114743b0d729053feecf3535ec12..0082fb1e4bfda3fe78ecafabc0b314b6847d441d 100755 (executable)
--- a/get-perl-modules.pl
+++ b/get-perl-modules.pl
@@ -103,6 +103,13 @@ if ($show_version) {
 my $arch = $Config{'archname'};
 my $version = $Config{'version'};
 
+my $cp_lib_dir = $Config{'privlib'};
+my $ca_lib_dir = $Config{'archlib'};
+my $vp_lib_dir = $Config{'vendorlib'};
+my $va_lib_dir = $Config{'vendorarch'};
+my $sp_lib_dir = $Config{'sitelib'};
+my $sa_lib_dir = $Config{'sitearch'};
+
 for my $dir ( @INC ) {
 
     if ( -d $dir ) {
@@ -125,8 +132,29 @@ sub wanted {
         my $modname = $file_in_volume;
         $modname =~ s/\.pm$//;
         $modname =~ s#/#::#g;
+               return if $module->{$modname};
         print "Modul '$modname' gefunden in '$cur_dir' ...\n" if $verbose > 1;
-        $module->{$modname} = 1;
+               my $location = 'o ';
+               if ( $file_abs =~ /^$sa_lib_dir/ ) {
+                       $location = 'sa';
+               }
+               elsif ( $file_abs =~ /^$sp_lib_dir/ ) {
+                       $location = 's ';
+               }
+               elsif ( $file_abs =~ /^$va_lib_dir/ ) {
+                       $location = 'va';
+               }
+               elsif ( $file_abs =~ /^$vp_lib_dir/ ) {
+                       $location = 'v ';
+               }
+               elsif ( $file_abs =~ /^$ca_lib_dir/ ) {
+                       $location = 'ca';
+               }
+               elsif ( $file_abs =~ /^$cp_lib_dir/ ) {
+                       $location = 'c ';
+               }
+       
+        $module->{$modname} = $location;
     }
 
 }
@@ -137,7 +165,7 @@ print "\nGefundene Module:\n\n" if $verbose;
 
 for ( sort { lc($a) cmp lc($b) } keys %$module ) {
     print " - " if $verbose;
-    print "$_\n";
+    print $module->{$_} . " " . $_ . "\n";
 }
 
 exit 0;