view release on metacpan or  search on metacpan

cpan2rpm  view on Meta::CPAN

        if ($ret == 0) {
            my @cmd = ($RPM, '-ba');
            push @cmd, "--clean" unless $info->{"no-clean"};
            push @cmd, $info->{spec};
            debug(join " ", @cmd);
            system(@cmd);
            die "RPM build (@cmd) failed [$ret]" if $ret = $? >> 8;
            if ($info->{sign} && -r $info->{rpm}) {
                print "\n\nSigning package (passphrase required) ...\n\n";
                sleep 2;
                system "rpmsign", "--addsign", $info->{rpm};
                }
            }
        }

    print "RPM: $info->{rpm}\n" if -r $info->{rpm};
    print "SRPM: $info->{srpm}\n" if -r $info->{srpm};
    return $ret;
    }

#