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 )