- skip modules which begin with a dot (perl.req)

Changed files:
    rpm-perl-macros.patch -> 1.13

diff --git a/rpm-perl-macros.patch b/rpm-perl-macros.patch
index e3bd72191719487873ce2e88ae0ebbda8b8f764d..ad94c33165b6c12f3801bfc79b691ef8536dea93 100644 (file)
--- 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);