X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FZip%2FFileMember.pm;h=49858bbf23431e0a0f272599faf0b93ef66bc4bd;hp=39a186919a52f763f09afad8cf3f953c7c1fe8ac;hb=71e7c4f845cb4cfb0c81391d0dab71f2d634796d;hpb=1ce7d1541ea1279aaa0a75c16986a3fd40b608ec

diff --git a/lib/BackupPC/Zip/FileMember.pm b/lib/BackupPC/Zip/FileMember.pm
index 39a1869..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.5.0, released 2 Aug 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};
+}