| Server IP : 212.252.79.165 / Your IP : 216.73.217.172 [ Web Server : Apache System : Linux 212-252-79-165.cprapid.com 5.15.0-153-generic #163-Ubuntu SMP Thu Aug 7 16:37:18 UTC 2025 x86_64 User : cehaburo ( 1001) PHP Version : 8.1.33 Disable Function : exec,passthru,shell_exec,system Domains : 48 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /home/cehaburo/public_html/images/product/anon_sym/anon/bin/X11/X11/X11/ |
Upload File : |
#!/usr/bin/perl
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