Can't pass in --buildarch

[kennzors]

Example cpan2rpm:

cpan2rpm --no-sign --no-depchk --buildarch=x86_64 Nginx::HTTP

from the output:

RPM: /root/rpmbuild/RPMS/noarch/perl-Nginx-HTTP-0.03-1.noarch.rpm
SRPM: /root/rpmbuild/SRPMS/perl-Nginx-HTTP-0.03-1.src.rpm

It appears that cpan2rpm disregards the buildarch argument.
I was able to make a quick fix by omitting the code where it checks to see if the eval directory has any .xs or .c files. $info->{'buildarch'} already has "noarch" if the tarball doesn't contain any .xs or .c files, or if no argument is specified in buildarch:

 429     # kennzors: buildarch is already set to noarch or specified by --buildarch
 430     #else {
 431     #    my $xs = 0;
 432     #    find(sub { $xs = 1 if /\.(xs|c)$/i }, $info->{evaldir});
 433     #    $info->{buildarch} = "noarch" if $xs == 0;
 434     #    }

[ekkis]

if the package has no .xs or .c files then it should be "noarch", except if explicitly given an architecture, so I'm reluctant to just comment out the above code but perhaps else if (!$info->{buildarch}) { would be the ticket?