Apache-PAR

 view release on metacpan or  search on metacpan

PAR.pm  view on Meta::CPAN

156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
             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 )