From 4d8fb4e36f93323167246aa7cc16b1b3d59cae13 Mon Sep 17 00:00:00 2001
From: pius <pius@pld-linux.org>
Date: Thu, 4 Nov 1999 21:23:05 +0000
Subject: [PATCH] - skip modules which begin with a dot (perl.req)

Changed files:
    rpm-perl-macros.patch -> 1.13
---
 rpm-perl-macros.patch | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rpm-perl-macros.patch b/rpm-perl-macros.patch
index e3bd721..ad94c33 100644
--- a/rpm-perl-macros.patch
+++ b/rpm-perl-macros.patch
@@ -157,7 +157,7 @@
        next;
      }
  
-@@ -108,8 +120,24 @@
+@@ -108,8 +120,28 @@
        # will be included with the name sys/systeminfo.ph so only use the
        # basename of *.ph files
  
@@ -173,6 +173,10 @@
 +
 +      ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next;
 +
++      # if the module name starts in a dot it is not a module name
++
++      ($module =~ m/^\./) && next;
++
 +      # if the module ends with .pm strip it to leave only basename
 +
 +      ($module =~ m/\.pm$/) && ($module =~ s/\.pm//g);
-- 
2.43.0