Apache-PAR
view release on metacpan or search on metacpan
156157158159160161162163164165166167168169170171172173174175176
return
undef
;
}
my
$tmppar
= File::Spec->catdir(
$tmpdir
,
'par'
, (File::Spec->splitpath(
$par
))[1,2]);
# Instead of using full path, this will append MD5
# my $fh;
# unless(open $fh, '<', $par) {
# print STDERR "unable to read '$par': $!";
# return undef;
# }
# binmode($fh);
# my $md5 = Digest::MD5->new->addfile($fh)->hexdigest;
# my $tmppar = File::Spec->catdir($tmpdir, 'par', $md5);
# close($fh);
warn
"[PAR] unpack dir is '$tmppar'\n"
if
DEBUG;
# mtime check for if MD5 approach isn't used
if
(-d
$tmppar
) {
if
(DEBUG) {
warn
"[PAR] archive has been unpacked previously\n"
;
( run in 0.395 second using v1.01-cache-2.11-cpan-eab888a1d7d )