Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

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

Report information
The Basics
Id:
78559
Status:
new
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
chandarraju [...] gmail.com
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



Subject: Archive::Zip - writeToFileNamed fails with error IO error: Reading data: Permission Denied
Date: Wed, 25 Jul 2012 10:52:29 +0530
To: bug-Archive-Zip@rt.cpan.org
From: chandar raju kakarlapudi <chandarraju@gmail.com>
Hi,

I have installed the Archive::Zip version 1.30 on my active perl installation - 5.12.3 on Windows 2003 server 
I am trying to zip a directory tree and facing error.

The same code works on one server, while it doesn't work on other.
Please find the code below:

<CODE>

use Archive::Zip;
my $zip = Archive::Zip->new();
$zip->addTree("C:\Chandar", "Chandar");
$zip->writeToFileNamed("D:\Backup\AppBackup.zip");

</CODE>

<OUTPUT>

IO error: reading data : Permission denied
 at C:/Perl64/site/lib/Archive/Zip/NewFileMember.pm line 60
        Archive::Zip::NewFileMember::_readRawChunk('Archive::Zip::NewFileMember=HASH(0x3c0c388)', 'SCALAR(0x3222f48)', 16) called
at C:/Perl64/site/lib/Archive/Zip/Member.pm line 788
        Archive::Zip::Member::readChunk('Archive::Zip::NewFileMember=HASH(0x3c0c388)', 32768) called at C:/Perl64/site/lib/Archive
/Zip/Member.pm line 1063
        Archive::Zip::Member::_writeData('Archive::Zip::NewFileMember=HASH(0x3c0c388)', 'IO::File=GLOB(0x3ac12c8)') called at C:/P
erl64/site/lib/Archive/Zip/Member.pm line 1030
        Archive::Zip::Member::_writeToFileHandle('Archive::Zip::NewFileMember=HASH(0x3c0c388)', 'IO::File=GLOB(0x3ac12c8)', 1, 218
010) called at C:/Perl64/site/lib/Archive/Zip/Archive.pm line 402
        Archive::Zip::Archive::writeToFileHandle('Archive::Zip::Archive=HASH(0x3ac0d20)', 'IO::File=GLOB(0x3ac12c8)', 1) called at
 C:/Perl64/site/lib/Archive/Zip/Archive.pm line 370
        Archive::Zip::Archive::writeToFileNamed('Archive::Zip::Archive=HASH(0x3ac0d20)', 'C:\sis_backup\SiS_backup_2012-07-25-15-1
9-07.zip') called at usm_sis_backup.pl line 369

</OUTPUT>

I do not get the error when the directory is small and has few files in it (around 500 kb - 1 mb).
More than that, I get the error. And I have checked there is no problem with the permissions.
Also, for the similar set up, it works perfect for 1.5GB directory on another windows server with same OS, same Perl installation, same Archive::zip version.

I would appreciate your response.

Thanks,
Chandar.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

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