zyppe/parse-rpm-spec
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Version 0.04.

Browse source 
Handle BuildArch definition. Thanks to Steve Goldner for pointing out the omission.
This commit is contained in:
Dave Cross 2009-10-27 12:38:49 -04:00
parent 29340d719a
commit 2f20b0d347
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Parse/RPM/Spec.pm
View file

@ -7,7 +7,7 @@ use warnings;
use Carp; use Carp;
use Moose; use Moose;
our $VERSION = '0.03'; our $VERSION = '0.04';
has file => ( is => 'rw', isa => 'Str', required => 1 ); has file => ( is => 'rw', isa => 'Str', required => 1 );
has name => ( is => 'rw', isa => 'Str' ); has name => ( is => 'rw', isa => 'Str' );
@ -66,6 +66,7 @@ sub parse_file {
/^URL:\s*(\S+)/ and $self->{url} = $1; /^URL:\s*(\S+)/ and $self->{url} = $1;
/^Source0?:\s*(\S+)/ and $self->{source} = $1; /^Source0?:\s*(\S+)/ and $self->{source} = $1;
/^BuildRoot:\s*(\S+)/ and $self->{buildroot} = $1; /^BuildRoot:\s*(\S+)/ and $self->{buildroot} = $1;
/^BuildArch:\s*(\S+)/ and $self->{buildarch} = $1;
/^BuildRequires:\s*(.+)/ and push @{$self->{buildrequires}}, $1; /^BuildRequires:\s*(.+)/ and push @{$self->{buildrequires}}, $1;
/^Requires:\s*(.+)/ and push @{$self->{requires}}, $1; /^Requires:\s*(.+)/ and push @{$self->{requires}}, $1;

3
t/parse-rpm-spec.t
View file

@ -1,4 +1,4 @@
use Test::More tests => 10; use Test::More tests => 11;
BEGIN { use_ok('Parse::RPM::Spec') }; BEGIN { use_ok('Parse::RPM::Spec') };
ok($spec = Parse::RPM::Spec->new( { file => 't/file.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'); is($spec->version, '1.16');
$spec->version('1.17'); $spec->version('1.17');
is($spec->version, '1.17'); is($spec->version, '1.17');
is($spec->buildarch, 'noarch');
is(@{$spec->buildrequires}, 2); is(@{$spec->buildrequires}, 2);
is($spec->buildrequires->[0], 'perl >= 1:5.6.0'); is($spec->buildrequires->[0], 'perl >= 1:5.6.0');