Data-ShowTable
view release on metacpan or search on metacpan
bump-version view on Meta::CPAN
} else {
STDERR->flush;
unless (system($cmd)) {
nvtalkf "--> %s\n", $cmd;
die "Command failed: $!\n";
}
}
}
}
sub update_version($) {
my $file = shift;
$new_file = "$file.new";
chatf "Scanning %s for \$VERSION..\n", $file;
my($in, $out);
if (open($in, "<", $file)) {
if (!$norun) {
chatf "Opening %s for output..\n", $new_file;
open($out, ">", $new_file) or die("Cannot open $out for output: $!\n");
}
my $done = '';
( run in 0.369 second using v1.01-cache-2.11-cpan-496ff517765 )