amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-02 09:31:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Amend Changes file format

Browse source 
This is to match CPAN::Changes spec, which also allows for tests.
Also add 'email' Build rule to help generate announcement email
This commit is contained in:
Duncan Ferguson 2014-01-31 18:30:37 +00:00
parent 161fba4dac
commit cd1abe15b9
4 changed files with 307 additions and 278 deletions
Download patch file Download diff file Expand all files Collapse all files

39
Build.PL
View file

@ -7,17 +7,38 @@ my $class = Module::Build->subclass(
class => "Module::Build::Custom",
code => q{
sub ACTION_email {
my ($self, @args) = shift;
my ($self, @args) = @_;
# Make sure all tests pass first
$self->depends_on("test");
print "Use '--changes <N>' to define how many to output. Default: 1", $/;
my $change_count = $self->args('changes') || 1;
use CPAN::Changes;
my @changes = CPAN::Changes->load( 'Changes' )->releases;
if($changes[-1]->date =~ m/^0000/) {
die '#' x 40, $/, ' ' x 3, "FATAL: 'Changes' date not updated",$/,'#' x 40, $/;
}
print $/;
foreach my $change ( 1 .. $change_count ) {
print $changes[ 0 - $change]->serialize;
}
my $v=$self->dist_version;
print $/, '=' x 10,$/,$/;
print 'Bug Reports and Issues: https://github.com/duncs/clusterssh/issues',$/;
print 'Project Repository: http://github.com/duncs/clusterssh',$/;
print 'CPAN release: http://search.cpan.org/~duncs/App-ClusterSSH-',$v,$/;
print 'SF release: http://sourceforge.net/projects/clusterssh/files/2.%20ClusterSSH%20Series%204/App-ClusterSSH-',$v,'.tar.gz/download',$/;
print 'SF/net git repo: https://sourceforge.net/scm/?type=git&group_id=89139',$/;
print $/, '=' x 10,$/,$/;
print <<"EOF";
==========
Bug Reports and Issues: https://github.com/duncs/clusterssh/issues
Project Repository: http://github.com/duncs/clusterssh
CPAN release: http://search.cpan.org/~duncs/App-ClusterSSH-$v
SF release: http://sourceforge.net/projects/clusterssh/files/2.%20ClusterSSH%20Series%204/App-ClusterSSH-${v}.tar.gz/download
SF/net git repo: https://sourceforge.net/scm/?type=git&group_id=89139
==========
EOF
}
},
);
@ -54,11 +75,13 @@ my $build = $class->new(
'File::Temp' => 0,
'Test::DistManifest' => 0,
'Test::Differences' => 0,
'CPAN::Changes' => 0.27,
},
configure_requires => { 'Module::Build' => 0, },
add_to_cleanup => ['App-ClusterSSH-*'],
create_makefile_pl => 'traditional',
script_files => 'bin',
get_options => { changes => { type => '=s' }, },
);
$build->create_build_script;