- if (/^perl\((.*)\)\s*((>=|=|<=)\s+([\d\.]+))?$/
- || /^perl-(.*)\s*((>=|=|<=)\s+([\d\.]+))?$/) {
- next if exists($suppress{$1});
- my @parts = split /::/, $1;
+ if (/^perl\((.*?)\)\s*((>=|=|<=)\s+([\d\.]+))?$/
+ || /^perl-(.*?)\s*((>=|=|<=)\s+([\d\.]+))?$/) {
+ my ($mod, $rel, $ver) = ($1, $3, $4);
+ if (/^perl-/) {
+ print STDERR "\"$mod\"\n" if $verbose;
+ $mod = $rpm2mod{$mod} if exists($rpm2mod{$mod});
+ $mod =~ s/-/::/g
+ }
+ next if exists($suppress{$mod});
+ my @parts = split /::/, $mod;