[perl-NetPacket-SpanningTree] Compatibility with perl 5.18

[Petr Pisar]

commit 4cbff5d3e38e363435d2b103d7718d425ac8af03
Author: Petr Písař <ppisar at redhat.com>
Date:   Sat Jul 20 07:26:45 2013 +0200

    Compatibility with perl 5.18

 ....01-qw-does-not-imply-parentheses-anymore.patch |   40 ++++++++++++++++++++
 perl-NetPacket-SpanningTree.spec                   |    4 ++
 2 files changed, 44 insertions(+), 0 deletions(-)
---
diff --git a/NetPacket-SpanningTree-0.01-qw-does-not-imply-parentheses-anymore.patch b/NetPacket-SpanningTree-0.01-qw-does-not-imply-parentheses-anymore.patch
new file mode 100644
index 0000000..41232b1
--- /dev/null
+++ b/NetPacket-SpanningTree-0.01-qw-does-not-imply-parentheses-anymore.patch
@@ -0,0 +1,40 @@
+From bb02037ea3985d53362371272df6c600aa32a15c Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Sat, 20 Jul 2013 07:18:53 +0200
+Subject: [PATCH] qw does not imply parentheses anymore
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=87085>
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ SpanningTree.pm | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/SpanningTree.pm b/SpanningTree.pm
+index c03d3a0..95c4c08 100644
+--- a/SpanningTree.pm
++++ b/SpanningTree.pm
+@@ -247,7 +247,7 @@ sub encode {
+     # Invert the message age for encoding.
+     #
+ 
+-    foreach my $name qw(message_age hello_time max_age forward_delay) {
++    foreach my $name (qw(message_age hello_time max_age forward_delay)) {
+         $data->{$name} = $data->{$name} * 256;
+     }
+ 
+@@ -267,7 +267,7 @@ sub encode {
+     #
+     # Put back the message age.
+     #
+-    foreach my $name qw(message_age hello_time max_age forward_delay) {
++    foreach my $name (qw(message_age hello_time max_age forward_delay)) {
+         $data->{$name} = $data->{$name} / 256;
+     }
+     $data->{bpdu_type} = hex ($data->{bpdu_type});
+-- 
+1.8.1.4
+
diff --git a/perl-NetPacket-SpanningTree.spec b/perl-NetPacket-SpanningTree.spec
index 0e7dc3b..09ca5e1 100644
--- a/perl-NetPacket-SpanningTree.spec
+++ b/perl-NetPacket-SpanningTree.spec
@@ -8,6 +8,8 @@ URL:            http://search.cpan.org/dist/NetPacket-SpanningTree/
 Source0:        http://www.cpan.org/authors/id/C/CG/CGANESAN/NetPacket-SpanningTree-%{version}.tar.gz
 # email from author with permissions to relicense sources under Artistic or GPL
 Source1:        %{name}.email
+# Compatibility with perl 5.18, CPAN RT#87085
+Patch0:         NetPacket-SpanningTree-0.01-qw-does-not-imply-parentheses-anymore.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 BuildRequires:  perl(ExtUtils::MakeMaker)
@@ -25,6 +27,7 @@ specification.
 
 %prep
 %setup -q -n NetPacket-SpanningTree-%{version}
+%patch0 -p1
 cp %{SOURCE1} .
 
 %build
@@ -56,6 +59,7 @@ rm -rf $RPM_BUILD_ROOT
 %changelog
 * Thu Jul 18 2013 Petr Pisar <ppisar at redhat.com> - 0.01-9
 - Perl 5.18 rebuild
+- Compatibility with perl 5.18 (CPAN RT#87085)
 
 * Thu Feb 14 2013 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 0.01-8
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild