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

Change Source to return an array of sources (Thanks to Vadim Vatlin for the suggestion).

Browse source
This commit is contained in:
Dave Cross 2010-07-11 18:09:54 +01:00
parent 98a34879dc
commit ac8a2f3c00
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -7,7 +7,7 @@ use warnings;
use Carp; use Carp;
use Moose; use Moose;
our $VERSION = '0.07'; our $VERSION = '0.08';
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' );
@ -18,7 +18,7 @@ has summary => ( is => 'rw', isa => 'Str' );
has license => ( is => 'rw', isa => 'Str' ); has license => ( is => 'rw', isa => 'Str' );
has group => ( is => 'rw', isa => 'Str' ); has group => ( is => 'rw', isa => 'Str' );
has url => ( is => 'rw', isa => 'Str' ); has url => ( is => 'rw', isa => 'Str' );
has source => ( is => 'rw', isa => 'Str' ); has source => ( is => 'rw', isa => 'ArrayRef[Str]' );
has buildroot => ( is => 'rw', isa => 'Str' ); has buildroot => ( is => 'rw', isa => 'Str' );
has buildarch => ( is => 'rw', isa => 'Str' ); has buildarch => ( is => 'rw', isa => 'Str' );
has buildrequires => ( is => 'rw', isa => 'ArrayRef[Str]' ); has buildrequires => ( is => 'rw', isa => 'ArrayRef[Str]' );
@ -66,7 +66,7 @@ sub parse_file {
/^License:\s*(.+)/ and $self->{license} = $1; /^License:\s*(.+)/ and $self->{license} = $1;
/^Group:\s*(\S+)/ and $self->{group} = $1; /^Group:\s*(\S+)/ and $self->{group} = $1;
/^URL:\s*(\S+)/ and $self->{url} = $1; /^URL:\s*(\S+)/ and $self->{url} = $1;
/^Source0?:\s*(\S+)/ and $self->{source} = $1; /^Source\d*:\s*(\S+)/ and push @{$self->{source}}, $1;
/^BuildRoot:\s*(\S+)/ and $self->{buildroot} = $1; /^BuildRoot:\s*(\S+)/ and $self->{buildroot} = $1;
/^BuildArch:\s*(\S+)/ and $self->{buildarch} = $1; /^BuildArch:\s*(\S+)/ and $self->{buildarch} = $1;