From 92b191436bda5bf332d61ba458a8af5f95f13a23 Mon Sep 17 00:00:00 2001
From: pius <pius@pld-linux.org>
Date: Tue, 2 Nov 1999 23:26:00 +0000
Subject: [PATCH] - added stripping .pm in module name if needed (perl.req)

Changed files:
    rpm-perl-macros.patch -> 1.11
---
 rpm-perl-macros.patch | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/rpm-perl-macros.patch b/rpm-perl-macros.patch
index c69d484..7f034e2 100644
--- 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}=$_;
-- 
2.43.0