sub rec2rpm_name () {
    my $p    = shift;
    my ($n, $v, $r, $arch) = ($p->N, $p->V, $p->R, $p->arch);
    chomp $arch;
    my $q = P "%s-%s-%s.%s.rpm", $n, $v, $r, $arch;
    $q=~s/-"(\S+)"-"(\S+)"/-$1-$2/;
    $q;
  }