diff options
Diffstat (limited to 'pm')
| -rw-r--r-- | pm/MGATools/rpmsrate.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 4cd35e4..384b078 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -202,12 +202,14 @@ sub cleanrpmsrate { } @{$done{$_}}; my ($d) = /(.*)-[^-]+/; - my ($a, $b, $e, $do); + my ($e, $do); if (!$is_plain_flag) { + my ($a, $b); if ((s/(-devel)// ? ($b = "-devel") : /^$kernel_like/) && ($rpms{$_} || (defined $rpms{"lib$_"} and $a = "lib") || (defined $rpms{"lib64$_"} and $a = "lib64") || (s/^lib(.*?)[_-]*[\d._]*(-.*)?$/$1$2/g && defined $rpms{"lib64$_"} and $a = 'lib64'))) { + warn ">> looking at $c\n"; $e = $rpms{"$a$_"}[1] . $rpms{"$a$_"}[0] . $rpms{"$a$_"}[2] . $b; $do = 1; } elsif (/^$rpmsrate_dkms_like$/ && $rpms{"$1$2"}) { |