my $zip = Archive::Zip->new();
Save the above code as zip.pm and run the following command and grep original and post zip Modify date to compare.
Perl Library Zipped file extracted is always 1 second behind original modify file? Is this a bug with the library???
stat zip.pm | grep Modify && perl zip.pm && unzip test.zip && stat test.txt| grep Modify && rm test.*
Modify: 2017-01-03 01:15:55.000000000 -0800
Modify: 2017-01-03 01:15:54.000000000 -0800