diff --git a/lib/Parse/RPM/Spec.pm b/lib/Parse/RPM/Spec.pm index 3757072..eadb065 100644 --- a/lib/Parse/RPM/Spec.pm +++ b/lib/Parse/RPM/Spec.pm @@ -7,7 +7,7 @@ use warnings; use Carp; use Moose; -our $VERSION = '0.03'; +our $VERSION = '0.04'; has file => ( is => 'rw', isa => 'Str', required => 1 ); has name => ( is => 'rw', isa => 'Str' ); @@ -66,6 +66,7 @@ sub parse_file { /^URL:\s*(\S+)/ and $self->{url} = $1; /^Source0?:\s*(\S+)/ and $self->{source} = $1; /^BuildRoot:\s*(\S+)/ and $self->{buildroot} = $1; + /^BuildArch:\s*(\S+)/ and $self->{buildarch} = $1; /^BuildRequires:\s*(.+)/ and push @{$self->{buildrequires}}, $1; /^Requires:\s*(.+)/ and push @{$self->{requires}}, $1; diff --git a/t/parse-rpm-spec.t b/t/parse-rpm-spec.t index b549927..54b696b 100644 --- a/t/parse-rpm-spec.t +++ b/t/parse-rpm-spec.t @@ -1,4 +1,4 @@ -use Test::More tests => 10; +use Test::More tests => 11; BEGIN { use_ok('Parse::RPM::Spec') }; ok($spec = Parse::RPM::Spec->new( { file => 't/file.spec' } )); @@ -11,5 +11,6 @@ is($spec->name, 'perl-Array-Compare'); is($spec->version, '1.16'); $spec->version('1.17'); is($spec->version, '1.17'); +is($spec->buildarch, 'noarch'); is(@{$spec->buildrequires}, 2); is($spec->buildrequires->[0], 'perl >= 1:5.6.0');