diff --git a/lib/Parse/RPM/Spec.pm b/lib/Parse/RPM/Spec.pm index 2e8a6f6..45dc02b 100644 --- a/lib/Parse/RPM/Spec.pm +++ b/lib/Parse/RPM/Spec.pm @@ -23,7 +23,7 @@ has buildroot => ( is => 'rw', isa => 'Str' ); has buildarch => ( is => 'rw', isa => 'Str' ); has buildrequires => ( is => 'rw', isa => 'ArrayRef[Str]', default => sub { [] } ); has requires => ( is => 'rw', isa => 'ArrayRef[Str]', default => sub { [] } ); -has [ qw( excluderach exclusivearch excludeos exclusiveos ) ] +has [ qw( excludearch exclusivearch excludeos exclusiveos ) ] => ( is => 'rw', isa => 'Str' ); has parse_spec => ( diff --git a/t/file.spec b/t/file.spec index 844028f..413f402 100644 --- a/t/file.spec +++ b/t/file.spec @@ -13,6 +13,7 @@ BuildRequires: perl >= 1:5.6.0 BuildRequires: perl(Module::Build) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) ExclusiveArch: megaCPU +ExcludeArch: crapCPU %description If you have two arrays and you want to know if they are the same or diff --git a/t/parse-rpm-spec.t b/t/parse-rpm-spec.t index 84376c4..33321ac 100644 --- a/t/parse-rpm-spec.t +++ b/t/parse-rpm-spec.t @@ -23,6 +23,7 @@ is($spec->buildrequires->[0], 'perl >= 1:5.6.0', 'First build requirement is correct'); is($spec->exclusivearch, 'megaCPU', 'Correct exclusive architecture'); +is($spec->excludearch, 'crapCPU', 'Correct excluded architecture'); dies_ok { Parse::RPM::Spec->new } 'No spec file given';