- added stripping .pm in module name if needed (perl.req)

[packages/rpm.git] / rpm-perl-macros.patch

diff --git a/rpm-perl-macros.patch b/rpm-perl-macros.patch
index c69d4844b3b98c3e202c8dc13aafc6753c2f25de..7f034e241ad845d1409154a587a638b6e450757e 100644 (file)
--- a/rpm-perl-macros.patch
+++ b/rpm-perl-macros.patch
@@ -157,7 +157,7 @@
        next;
      }
  
-@@ -108,8 +120,17 @@
+@@ -108,8 +120,20 @@
        # will be included with the name sys/systeminfo.ph so only use the
        # basename of *.ph files
  
@@ -169,10 +169,13 @@
 +
 +      ($module =~ m/\.(ph|pl)$/) && next;
 +
-+      # we don't provide platform specific modules for platforms other 
-+      # than unix so we also shouldn't require them
- 
-+      ($module =~ m/Mac|OS2|MSDOS|Win32/) && next;
++      # skip all modules for oparating systems other than linux
++
++      ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next;
++
++      # if the module ends with .pm strip it to leave only basename
+
++      ($module =~ m/\.pm$/) && ($module =~ s!\.pm$!!g );
  
        $require{$module}=$version;
        $line{$module}=$_;