# 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
#
#========================================================================
#
-# Version 2.0.0beta1, released 30 Mar 2003.
+# Version 3.2.0, released 31 Jul 2010.
#
# See http://backuppc.sourceforge.net.
#
{
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};
+}