X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FZip%2FFileMember.pm;h=49858bbf23431e0a0f272599faf0b93ef66bc4bd;hp=d9892fe5efb8e7efb1f37d0cd873d59968228f90;hb=f9796d809e6a7d4ed2c356f0f32f1a3d628d3d1f;hpb=e9453b7611be63303572ae443d5fb56b73364678

diff --git a/lib/BackupPC/Zip/FileMember.pm b/lib/BackupPC/Zip/FileMember.pm
index d9892fe..49858bb 100644
--- a/lib/BackupPC/Zip/FileMember.pm
+++ b/lib/BackupPC/Zip/FileMember.pm
@@ -15,7 +15,7 @@
 #   Based on Archive::Zip::FileMember, Copyright (c) 2000 Ned Konz.
 #
 # COPYRIGHT
-#   Copyright (C) 2002  Craig Barratt
+#   Copyright (C) 2002-2009  Craig Barratt
 #
 #   This program is free software; you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
@@ -33,7 +33,7 @@
 #
 #========================================================================
 #
-# Version 1.6.0_CVS, released 10 Dec 2002.
+# Version 3.2.0, released 31 Jul 2010.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -133,3 +133,19 @@ sub extractToFileNamed	# BackupPC::Zip::FileMember
 {
     die("BackupPC::Zip::FileMember::extractToFileNamed not supported\n");
 }
+
+#
+# There is a bug in Archive::Zip 1.30 that causes BackupPC_zipCreate
+# to fail when compression is on and it is writing to an unseekable
+# output file (eg: pipe or socket); see:
+#
+#    https://rt.cpan.org/Public/Bug/Display.html?id=54827
+#
+# We overload the bitFlag function here to avoid the bug.
+#
+sub bitFlag
+{
+    my $self = shift;
+
+    return $self->{bitFlag};
+}