Select Code to Download

eval { ($fh1, $name3) = Archive::Zip::tempFile("ziptest"); };
ok($@, "Test that tempfile() failed");
is($fh1, 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?");

Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_h
+arness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00.load...........ok 2/2# Testing Archive::Zip 1.15, Perl 5.008006, 
+/usr/bin/perl
...
  /usr/bin/make test -- NOT OK

cpan>