view release on metacpan or  search on metacpan

anonymize-archives  view on Meta::CPAN

        # restore date and time
        utime @$_ for @mtime;

        # pick up owner and group
        my $iter   = Archive::Tar->iter($file);
        my $member = $iter->();
        my @opts   = (
            '--uid'   => $member->uid,
            '--uname' => $member->uname,
            '--gid'   => $member->gid,
            '--gname' => $member->gname,
          ( '-s', ':^:/:', '--absolute-paths' )x!! $archive->is_naughty,
        );

        # repack the file
        `bsdtar -c${gzip}f $tmp -C $dir -T $list --no-recursion @opts`;
    }
    elsif ( $type eq 'zip' ) {

        # read the list of files and their properties