/usr/bin/tidy_changelog is in libcpan-changes-perl 0.30-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use CPAN::Changes;
use Getopt::Long qw(GetOptions);
use Pod::Usage qw(pod2usage);
GetOptions( \my %opt,
'next!',
'token:s',
'headers!',
'reverse',
'check',
'help',
) or pod2usage( -verbose => 2 );
pod2usage( -verbose => 2 ) if $opt{help};
$opt{token} ||= qr/\{\{\$NEXT\}\}/;
my $changelog = shift;
unless ( $changelog ) {
# try to guess it
opendir my $dir, '.';
my @files = grep { -f $_ and /^change/i } readdir $dir;
die "changelog not provided and couldn't be guessed\n"
unless @files == 1;
$changelog = shift @files;
warn "changelog not provided, guessing '$changelog'\n\n";
}
if ($opt{check}) {
require Test::CPAN::Changes;
require Test::More;
Test::CPAN::Changes::changes_file_ok();
exit;
}
my $changes = CPAN::Changes->load(
$changelog,
( next_token => $opt{token} ) x $opt{next},
);
if( $opt{headers} ) {
$_->clear_changes for $changes->releases;
}
print $changes->serialize(
reverse => $opt{reverse},
);
__END__
=head1 NAME
tidy_changelog - command-line tool for CPAN::Changes
=head1 SYNOPSIS
$ tidy_changelog Changelog
=head1 DESCRIPTION
Takes a changelog file, parse it using L<CPAN::Changes> and prints out
the resulting output. If a file is not given, the program will see if
there is one file in the current directory beginning by 'change'
(case-insensitive) and, if so, assume it to be the changelog.
=head1 ARGUMENTS
=head2 --next
If provided, assumes that there is a placeholder
header for an upcoming next release. The placeholder token
is given via I<--token>.
=head2 --token
Regular expression to use to detect the token for an upcoming
release if I<--next> is used. If not explicitly given, defaults
to C<\{\{\$NEXT\}\}>.
=head2 --headers
If given, only print out the release header lines, without any of the
changes.
=head2 --reverse
Prints the releases in reverse order (from the oldest to latest).
=head2 --check
Only check if the changelog is formatted properly using the changes_file_ok
function of L<Test::CPAN::Changes>.
=head2 --help
This help
|