Please do not reply directly to this email. All additional comments should be made in the comments box of this bug report. https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=162303 Summary: Installation of perl module Archive::Zip fails - Read only directory being written too Product: Fedora Core Version: fc4 Platform: i686 URL: http://www.perlmonks.com/?node_id=471824 OS/Version: Linux Status: NEW Severity: security Priority: normal Component: perl-Archive-Zip AssignedTo: wtogami@xxxxxxxxxx ReportedBy: adam@xxxxxxxxxxxx CC: fedora-perl-devel-list@xxxxxxxxxx >From Bugzilla Helper: User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; rv:1.7.3) Gecko/20041001 Firefox/0.10.1 Description of problem: When installing Archive::Zip from cpan, the "make test" fails. It fails the test when it sets the ziptest directory to read-only yet Archive::Zip seems to still be able to create a temporary file. So it looks like fedora is allowing a directory set to read only, be written to. Here is the code of the 'test' it's failing, allowing you to write to a read-only directory: Archive::Zip::setErrorHandler( \&error ); ok(mkdir('ziptest'), "Create ziptemp directory"); ok(-d 'ziptest', "Does ./ziptest exist"); ok(chmod(0400, 'ziptest'), "chmod ziptemp directory"); my $fh1; my $name3; eval { ($fh1, $name3) = Archive::Zip::tempFile("ziptest"); }; ok($@, "Test that tempfile() failed"); is($fh1, undef, "Test correct returns from failed tempFile call" ); is($name3, undef, "Test correct returns from failed tempFile call"); ok(chmod(0700, 'ziptest'), "chmod ziptemp directory to cleanup"); is(rmdir('ziptest'), 1, "Remove ziptemp") || diag $!; ok(! -d 'ziptest', "Was ziptest deleted?"); Version-Release number of selected component (if applicable): How reproducible: Always Steps to Reproduce: 1. Enter CPAN ">cpan" 2. Type "install Archive::Zip" 3. Watch the test part fail. Actual Results: cpan> test Archive::Zip Running test for module Archive::Zip Running make for S/SM/SMPETERS/Archive-Zip-1.15.tar.gz Is already unwrapped into directory /root/.cpan/build/Archive-Zip-1.15 Has already been processed within this session Running make test PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/00.load...........ok 2/2# Testing Archive::Zip 1.15, Perl 5.008006, /usr/bin/perl t/00.load...........ok t/pod...............ok t/test..............ok t/testex............ok t/testMemberRead....ok t/testTree..........ok t/testUpdate........ok t/za_archive_zip....NOK 12# Failed test (t/za_archive_zip.t at line 36) t/za_archive_zip....NOK 15# Failed test (t/za_archive_zip.t at line 42) t/za_archive_zip....NOK 16# Failed test (t/za_archive_zip.t at line 43) # got: 'IO::File=GLOB(0x8af4114)' # expected: undef t/za_archive_zip....NOK 17# Failed test (t/za_archive_zip.t at line 44) # got: 'ziptest/XEPEntCx6a.zip' # expected: undef t/za_archive_zip....NOK 19# Failed test (t/za_archive_zip.t at line 46) # got: '0' # expected: '1' # Directory not empty t/za_archive_zip....NOK 20# Failed test (t/za_archive_zip.t at line 47) t/za_archive_zip....ok 22/0# Looks like you failed 6 tests of 22. t/za_archive_zip....dubious Test returned status 6 (wstat 1536, 0x600) DIED. FAILED tests 12, 15-17, 19-20 Failed 6/22 tests, 72.73% okay Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t/za_archive_zip.t 6 1536 22 6 27.27% 12 15-17 19-20 Failed 1/8 test scripts, 87.50% okay. 6/195 subtests failed, 96.92% okay. make: *** [test_dynamic] Error 2 /usr/bin/make test -- NOT OK cpan> Expected Results: All tests should have passed Additional info: -- Configure bugmail: https://bugzilla.redhat.com/bugzilla/userprefs.cgi?tab=email ------- You are receiving this mail because: ------- You are on the CC list for the bug, or are watching someone who is.
