Archive-Tar

 view release on metacpan or  search on metacpan

bin/ptardiff  view on Meta::CPAN

    next unless $file->is_file;
    my $prefix = $file->prefix;
    my $name = $file->name;
    if (defined $prefix) {
        $name = File::Spec->catfile($prefix, $name);
    }

    diff(   \($file->get_content), $name,
            {   FILENAME_A  => $name,
                MTIME_A     => $file->mtime,
                OUTPUT      => \*STDOUT
            }
    );
}




sub usage {
    return q[



( run in 0.362 second using v1.01-cache-2.11-cpan-4e96b696675 )