- make sure $module is not empty (found by Mikolaj Kucharski)

[packages/rpm.git] / rpm-perl_req-INC_dirs.patch

diff --git a/rpm-perl_req-INC_dirs.patch b/rpm-perl_req-INC_dirs.patch
index c6a28f2a42751c53aaafd367e8fddbe0f28ad960..163ce710db176c77a38340aaa36541d1472e2575 100644 (file)
--- a/rpm-perl_req-INC_dirs.patch
+++ b/rpm-perl_req-INC_dirs.patch
@@ -29,7 +29,7 @@
 +print "$_\n" for sort grep $inc{$_}, keys %inc;
  
 -foreach $module (sort keys %require) {
-+foreach my $module (sort keys %require) {
++foreach my $module (sort grep length, keys %require) {
    if (length($require{$module}) == 0) {
       if ($module =~ /^[0-9._]+$/) {
         print "perl-base >= $module\n";