view release on metacpan or  search on metacpan

Resumable.pm  view on Meta::CPAN

#     * length and inode number - note that this doesn't have to match
#     * the content-length (i.e. includes), it just has to be unique
#     * for the file.
#     *
#     * If the request was made within a second of the last-modified date,
#     * we send a weak tag instead of a strong one, since it could
#     * be modified again later in the second, and the validation
#     * would be incorrect.
#     */

    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime)
= stat ($file) ;

    my $weak = ($req->request_time - $mtime > 1)? "" : "W/";
    my $etag ;
    if ($mode != 0)
        {
        $etag = sprintf ('%s"%x-%x-%x"', $weak, $ino, $size, $mtime) ;
        }
    else
        {