diff --git a/lib/Parse/RPM/Spec.pm b/lib/Parse/RPM/Spec.pm index 30fda27..b15923c 100644 --- a/lib/Parse/RPM/Spec.pm +++ b/lib/Parse/RPM/Spec.pm @@ -35,25 +35,25 @@ has parse_spec => ( sub _build_parse_spec { return { scalars => { - name => qr[^Name:\s*(\S+)], - version => qr[^Version:\s*(\S+)], - epoch => qr[^Epoch:\s*(\S+)], - release => qr[^Release:\s*(\S+)], - summary => qr[^Summary:\s*(.+)], - license => qr[^License:\s*(.+)], - group => qr[^Group:\s*(\S+)], - url => qr[^URL:\s*(\S+)], - buildroot => qr[^BuildRoot:\s*(\S+)], - buildarch => qr[^BuildArch:\s*(\S+)], - excludearch => qr[^ExcludeArch:\s*(\S+)], - exclusivearch => qr[^ExclusiveArch:\s*(\S+)], - excludeos => qr[^ExcludeOS:\s*(\S+)], - exclusiveos => qr[^ExclusiveOS:\s*(\S+)], + name => qr[^Name:\s+(\S+)], + version => qr[^Version:\s+(\S+)], + epoch => qr[^Epoch:\s+(\S+)], + release => qr[^Release:\s+(\S+)], + summary => qr[^Summary:\s+(.+)], + license => qr[^License:\s+(.+)], + group => qr[^Group:\s+(\S+)], + url => qr[^URL:\s+(\S+)], + buildroot => qr[^BuildRoot:\s+(\S+)], + buildarch => qr[^BuildArch:\s+(\S+)], + excludearch => qr[^ExcludeArch:\s+(\S+)], + exclusivearch => qr[^ExclusiveArch:\s+(\S+)], + excludeos => qr[^ExcludeOS:\s+(\S+)], + exclusiveos => qr[^ExclusiveOS:\s+(\S+)], }, arrays => { - source => qr[^Source\d*:\s*(\S+)], - buildrequires => qr[^BuildRequires:\s*(.+)], - requires => qr[^Requires:\s*(.+)], + source => qr[^Source\d*:\s+(\S+)], + buildrequires => qr[^BuildRequires:\s+(.+)], + requires => qr[^Requires:\s+(.+)], }, }; } diff --git a/t/parse-license-correctly.t b/t/parse-license-correctly.t index 266cfce..77f83f4 100644 --- a/t/parse-license-correctly.t +++ b/t/parse-license-correctly.t @@ -4,7 +4,7 @@ use warnings; use Test::More; use Test::Exception; -BEGIN { use_ok('Parse::RPM::Spec') }; +use Parse::RPM::Spec; my $spec = Parse::RPM::Spec->new( { file => 't/perl-License-Syntax.spec' } );