| 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.