3038bc
diff -up Archive-Zip-1.30/lib/Archive/Zip/Member.pm.bug Archive-Zip-1.30/lib/Archive/Zip/Member.pm
3038bc
--- Archive-Zip-1.30/lib/Archive/Zip/Member.pm.bug	2009-06-30 13:51:10.000000000 +0200
3038bc
+++ Archive-Zip-1.30/lib/Archive/Zip/Member.pm	2012-03-19 13:13:11.028294275 +0100
3038bc
@@ -159,13 +159,13 @@ sub bitFlag {
3038bc
 
3038bc
     # Set General Purpose Bit Flags according to the desiredCompressionLevel setting
3038bc
     if ( $self->desiredCompressionLevel == 1 || $self->desiredCompressionLevel == 2 ) {
3038bc
-        $self->{'bitFlag'} = DEFLATING_COMPRESSION_FAST;
3038bc
+        $self->{'bitFlag'} |= DEFLATING_COMPRESSION_FAST;
3038bc
     } elsif ( $self->desiredCompressionLevel == 3 || $self->desiredCompressionLevel == 4
3038bc
           || $self->desiredCompressionLevel == 5 || $self->desiredCompressionLevel == 6
3038bc
           || $self->desiredCompressionLevel == 7 ) {
3038bc
-        $self->{'bitFlag'} = DEFLATING_COMPRESSION_NORMAL;
3038bc
+        $self->{'bitFlag'} |= DEFLATING_COMPRESSION_NORMAL;
3038bc
     } elsif ( $self->desiredCompressionLevel == 8 || $self->desiredCompressionLevel == 9 ) {
3038bc
-        $self->{'bitFlag'} = DEFLATING_COMPRESSION_MAXIMUM;
3038bc
+        $self->{'bitFlag'} |= DEFLATING_COMPRESSION_MAXIMUM;
3038bc
     }
3038bc
     $self->{'bitFlag'};
3038bc
 }