[perl-Archive-Zip] bz 543660 apply patch from rt cpan 54827

[Marcela Mašláňová]

commit df8dee553d929ed12db7210b51ae8499e91d4c42
Author: Marcela Mašláňová <mmaslano at redhat.com>
Date:   Mon Mar 19 13:19:44 2012 +0100

    bz 543660 apply patch from rt cpan 54827

 Archive-Zip-cpan-rt-54827.patch |   20 ++++++++++++++++++++
 perl-Archive-Zip.spec           |    8 +++++++-
 2 files changed, 27 insertions(+), 1 deletions(-)
---
diff --git a/Archive-Zip-cpan-rt-54827.patch b/Archive-Zip-cpan-rt-54827.patch
new file mode 100644
index 0000000..9d78db7
--- /dev/null
+++ b/Archive-Zip-cpan-rt-54827.patch
@@ -0,0 +1,20 @@
+diff -up Archive-Zip-1.30/lib/Archive/Zip/Member.pm.bug Archive-Zip-1.30/lib/Archive/Zip/Member.pm
+--- Archive-Zip-1.30/lib/Archive/Zip/Member.pm.bug	2009-06-30 13:51:10.000000000 +0200
++++ Archive-Zip-1.30/lib/Archive/Zip/Member.pm	2012-03-19 13:13:11.028294275 +0100
+@@ -159,13 +159,13 @@ sub bitFlag {
+ 
+     # Set General Purpose Bit Flags according to the desiredCompressionLevel setting
+     if ( $self->desiredCompressionLevel == 1 || $self->desiredCompressionLevel == 2 ) {
+-        $self->{'bitFlag'} = DEFLATING_COMPRESSION_FAST;
++        $self->{'bitFlag'} |= DEFLATING_COMPRESSION_FAST;
+     } elsif ( $self->desiredCompressionLevel == 3 || $self->desiredCompressionLevel == 4
+           || $self->desiredCompressionLevel == 5 || $self->desiredCompressionLevel == 6
+           || $self->desiredCompressionLevel == 7 ) {
+-        $self->{'bitFlag'} = DEFLATING_COMPRESSION_NORMAL;
++        $self->{'bitFlag'} |= DEFLATING_COMPRESSION_NORMAL;
+     } elsif ( $self->desiredCompressionLevel == 8 || $self->desiredCompressionLevel == 9 ) {
+-        $self->{'bitFlag'} = DEFLATING_COMPRESSION_MAXIMUM;
++        $self->{'bitFlag'} |= DEFLATING_COMPRESSION_MAXIMUM;
+     }
+     $self->{'bitFlag'};
+ }
diff --git a/perl-Archive-Zip.spec b/perl-Archive-Zip.spec
index e74310a..24cf643 100644
--- a/perl-Archive-Zip.spec
+++ b/perl-Archive-Zip.spec
@@ -1,6 +1,6 @@
 Name:           perl-Archive-Zip
 Version:        1.30
-Release:        7%{?dist}
+Release:        8%{?dist}
 Summary:        Perl library for accessing Zip archives
 
 Group:          Development/Libraries
@@ -9,6 +9,8 @@ URL:            http://search.cpan.org/dist/Archive-Zip/
 Source0:        http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Archive-Zip-%{version}.tar.gz
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
+#https://rt.cpan.org/Public/Bug/Display.html?id=54827
+Patch0:         Archive-Zip-cpan-rt-54827.patch
 
 BuildRequires:  perl(Compress::Zlib) >= 1.14
 BuildRequires:  perl(ExtUtils::MakeMaker)
@@ -33,6 +35,7 @@ existing Zip files, or from existing directories, files, or strings.
 
 %prep
 %setup -q -n Archive-Zip-%{version}
+%patch0 -p1
 %{__perl} -pi -e 's|^#!/bin/perl|#!%{__perl}|' examples/*.pl
 %{__perl} -pi -e 's|^#!/usr/local/bin/perl|#!%{__perl}|' examples/selfex.pl
 
@@ -67,6 +70,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Mon Mar 19 2012 Marcela Mašláňová <mmaslano at redhat.com> - 1.30-8
+- 543660 apply patch from rt cpan 54827
+
 * Fri Jan 13 2012 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 1.30-7
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild