Skip Menu |
 

This queue is for tickets about the Archive-Zip CPAN distribution.

Report information
The Basics
Id: 48199
Status: new
Priority: 0/
Queue: Archive-Zip

People
Owner: Nobody in particular
Requestors: steven.hartland [...] multiplay.co.uk
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: Enhanced support for changing files patch
Download (untitled) / with headers
text/plain 234b
When the source file is changing sizes such as a log file the attached attempts to correct the size of the source file. We have been running the attached for quite some time now with great success, so thought it time to submit it.
Subject: patch-Member.pm
Download patch-Member.pm
text/x-perl 540b
--- Member.pm.orig 2007-11-07 13:02:24.000000000 +0000 +++ Member.pm 2008-01-23 03:31:51.000000000 +0000 @@ -883,4 +883,11 @@ $self->{'writeLocalHeaderRelativeOffset'} = $offset; $self->{'wasWritten'} = 0; + # update the size + my $fn = $self->externalFileName(); + if ( $fn && 'Archive::Zip::NewFileMember' eq ref( $self ) && -f $fn ) + { + my $size = -s $fn; + $self->{'uncompressedSize'} = $size if ( defined $size ); + } # Determine if I need to write a data descriptor


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.