From 651c756f5555d328d752b824495bb1d4f1a917be Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Sat, 3 Mar 2018 15:29:13 +0000 Subject: [PATCH 01/12] Fix tests for updated Perl::Tidy --- Build.PL | 2 +- lib/App/ClusterSSH.pm | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Build.PL b/Build.PL index 055f2ee..8c5f2d0 100644 --- a/Build.PL +++ b/Build.PL @@ -125,7 +125,7 @@ my $build = $class->new( 'CPAN::Changes' => 0.27, 'File::Slurp' => 0, 'Test::PerlTidy' => 0, - 'Perl::Tidy' => 20171214, + 'Perl::Tidy' => 20180220, }, recommends => { 'Sort::Naturally' => 0, }, configure_requires => { 'Module::Build' => 0, }, diff --git a/lib/App/ClusterSSH.pm b/lib/App/ClusterSSH.pm index 16f3c8e..45a7e83 100644 --- a/lib/App/ClusterSSH.pm +++ b/lib/App/ClusterSSH.pm @@ -309,7 +309,7 @@ sub load_keyboard_map() { # YES! current keycode have priority over old one (phew!) $keyboardmap{ $keycodetosym{ $keyboard[$i][$modifier] - } } + } } = $keyboard_stringlike_modifiers{$modifier} . ( $i + $min ); } @@ -1912,12 +1912,12 @@ sub create_menubar() { -menuitems => [ [ "command", "Show History", - -command => sub { $self->show_history; }, + -command => sub { $self->show_history; }, -accelerator => $self->config->{key_history}, ], [ "command", "Exit", - -command => sub { $self->exit_prog }, + -command => sub { $self->exit_prog }, -accelerator => $self->config->{key_quit}, ] ], @@ -1927,7 +1927,7 @@ sub create_menubar() { my $host_menu_items = [ [ "command", "Retile Windows", - -command => sub { $self->retile_hosts }, + -command => sub { $self->retile_hosts }, -accelerator => $self->config->{key_retilehosts}, ], @@ -1950,7 +1950,7 @@ sub create_menubar() { ], [ "command", "Add Host(s) or Cluster(s)", - -command => sub { $self->add_host_by_name, }, + -command => sub { $self->add_host_by_name, }, -accelerator => $self->config->{key_addhost}, ], [ "command", From 5b827fd163ae1508dcdc27b88e920266e95af243 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Mon, 5 Mar 2018 10:09:38 +0000 Subject: [PATCH 02/12] Minor release 4.13.1 for perltidy test fix --- Changes | 3 +++ META.json | 6 +++--- META.yml | 6 +++--- Makefile.PL | 2 +- README | 2 +- lib/App/ClusterSSH.pm | 2 +- 6 files changed, 12 insertions(+), 9 deletions(-) diff --git a/Changes b/Changes index 3ac6fe7..c092d6c 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +4.13.1 2018-03-05 Duncan Ferguson +- Minor update to fix failing tests due to 3rd party perltidy changes + 4.13 2017-12-27 Duncan Ferguson - Ensure ssh_args is keep unset if it is emptied in the configuration file - Obey configured console position (Debian bug 758215) (Github issue #100) diff --git a/META.json b/META.json index 55c86ba..acb25b4 100644 --- a/META.json +++ b/META.json @@ -20,7 +20,7 @@ "File::Slurp" : "0", "File::Temp" : "0", "File::Which" : "0", - "Perl::Tidy" : "20171214", + "Perl::Tidy" : "20180220", "Readonly" : "0", "Test::Differences" : "0", "Test::DistManifest" : "0", @@ -56,7 +56,7 @@ "provides" : { "App::ClusterSSH" : { "file" : "lib/App/ClusterSSH.pm", - "version" : "4.13" + "version" : "v4.13.1" }, "App::ClusterSSH::Base" : { "file" : "lib/App/ClusterSSH/Base.pm", @@ -107,6 +107,6 @@ ], "x_coverage" : "https://coveralls.io/github/duncs/clusterssh" }, - "version" : "4.13", + "version" : "v4.13.1", "x_serialization_backend" : "JSON::PP version 2.94" } diff --git a/META.yml b/META.yml index 3244e79..f220592 100644 --- a/META.yml +++ b/META.yml @@ -7,7 +7,7 @@ build_requires: File::Slurp: '0' File::Temp: '0' File::Which: '0' - Perl::Tidy: '20171214' + Perl::Tidy: '20180220' Readonly: '0' Test::Differences: '0' Test::DistManifest: '0' @@ -27,7 +27,7 @@ name: App-ClusterSSH provides: App::ClusterSSH: file: lib/App/ClusterSSH.pm - version: '4.13' + version: v4.13.1 App::ClusterSSH::Base: file: lib/App/ClusterSSH/Base.pm version: '0.02' @@ -73,5 +73,5 @@ resources: bugtracker: https://github.com/duncs/clusterssh/issues homepage: http://github.com/duncs/clusterssh/wiki license: http://dev.perl.org/licenses/ -version: '4.13' +version: v4.13.1 x_serialization_backend: 'CPAN::Meta::YAML version 0.016' diff --git a/Makefile.PL b/Makefile.PL index 95ddb5c..31dfb46 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -14,7 +14,7 @@ WriteMakefile 'File::Which' => 0, 'Getopt::Long' => 0, 'Locale::Maketext' => 0, - 'Perl::Tidy' => 20171214, + 'Perl::Tidy' => 20180220, 'Readonly' => 0, 'Test::Differences' => 0, 'Test::DistManifest' => 0, diff --git a/README b/README index 05c9200..a3b2206 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME cssh - Cluster administration tool VERSION - This documentation is for version: 4.13 + This documentation is for version: 4.13.1 SYNOPSIS cssh [-a ''] [-K ] [-q] [-c ''] [-x ] diff --git a/lib/App/ClusterSSH.pm b/lib/App/ClusterSSH.pm index 45a7e83..1fbd1a1 100644 --- a/lib/App/ClusterSSH.pm +++ b/lib/App/ClusterSSH.pm @@ -3,7 +3,7 @@ package App::ClusterSSH; use 5.008.004; use warnings; use strict; -use version; our $VERSION = version->new('4.13'); +use version; our $VERSION = version->new('4.13.1'); use Carp qw/cluck :DEFAULT/; From 15d3e210cf8c5632f3476f9df9ba6507f9d9a8d5 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Thu, 8 Mar 2018 21:58:55 +0000 Subject: [PATCH 03/12] Fix for running 'make -j 3' Prevent the same files being generated mutliple times when using 'make -j 4'. OpenSUSE bug: https://bugzilla.opensuse.org/show_bug.cgi?id=1083835 SourceForge support ticket 55 --- Changes | 3 +++ bin_PL/_build_docs | 13 ++++++------- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/Changes b/Changes index c092d6c..cb1eb10 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +4.13.2 0000-00-00 Duncan Ferguson +- Fix for running builds in parallel + 4.13.1 2018-03-05 Duncan Ferguson - Minor update to fix failing tests due to 3rd party perltidy changes diff --git a/bin_PL/_build_docs b/bin_PL/_build_docs index 4cabf3f..b149b26 100755 --- a/bin_PL/_build_docs +++ b/bin_PL/_build_docs @@ -4,10 +4,9 @@ use strict; use warnings; use FindBin qw($Bin $Script); +use File::Basename; -chdir $Bin || die "Unable to chdir into $Bin: $!"; - -my $bindir="$Bin/../bin"; +my $bindir="bin"; if(! -d $bindir) { mkdir $bindir || die "Could not mkdir $bindir: $!"; @@ -16,8 +15,8 @@ if(! -d $bindir) { print "Using perl binary: $^X",$/; print "Using perl version $^V",$/; -for my $source (glob("*")) { - my $dest="$bindir/$source"; +for my $dest (@ARGV) { + my $source=$Bin.'/'.basename($dest); next if($source =~ m/$Script/); next if($source =~ m/\.x$/); @@ -33,10 +32,10 @@ for my $source (glob("*")) { print $dfh $_ while(<$sfh>); close($sfh); - if($source ne "clusterssh_bash_completion.dist") { + if($source !~ m/clusterssh_bash_completion.dist/) { print $dfh "\n\n__END__\n\n"; - my $pod= qx{ $^X ./$source --generate-pod }; + my $pod= qx{ $^X $source --generate-pod }; die "Failed to generate pod" if($?); print $dfh $pod; } From 2e0f63360bfe9a721eabaa50f1a1d487b74bfd64 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Fri, 9 Mar 2018 08:51:35 +0000 Subject: [PATCH 04/12] Update version --- lib/App/ClusterSSH.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/App/ClusterSSH.pm b/lib/App/ClusterSSH.pm index 1fbd1a1..c286c04 100644 --- a/lib/App/ClusterSSH.pm +++ b/lib/App/ClusterSSH.pm @@ -3,7 +3,7 @@ package App::ClusterSSH; use 5.008.004; use warnings; use strict; -use version; our $VERSION = version->new('4.13.1'); +use version; our $VERSION = version->new('4.13.2'); use Carp qw/cluck :DEFAULT/; From 7d515388a2cda0af89fff46327e7c2172eede043 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Fri, 9 Mar 2018 09:18:39 +0000 Subject: [PATCH 05/12] Improvements to docs Amend links and wording in SUPPORT and REPORTING BUGS sections --- Changes | 1 + lib/App/ClusterSSH/Getopt.pm | 37 ++++++++++++++++++------------------ 2 files changed, 19 insertions(+), 19 deletions(-) diff --git a/Changes b/Changes index cb1eb10..0d64f3a 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,6 @@ 4.13.2 0000-00-00 Duncan Ferguson - Fix for running builds in parallel +- Improvements to SUPPORT and REPORTING BUGS sections in documentation 4.13.1 2018-03-05 Duncan Ferguson - Minor update to fix failing tests due to 3rd party perltidy changes diff --git a/lib/App/ClusterSSH/Getopt.pm b/lib/App/ClusterSSH/Getopt.pm index b7848ad..741451b 100644 --- a/lib/App/ClusterSSH/Getopt.pm +++ b/lib/App/ClusterSSH/Getopt.pm @@ -1014,9 +1014,8 @@ B Any "generic" change to the method (e.g., specifying the ssh port to us ); output '=back'; - output '=head1 ', $self->loc('REPORTING BUGS'); - output '=over'; - output '=item *'; + output '=head1 ', $self->loc('TROUBLESHOOTING'); + output $self->loc( q{If you have issues running [_1], first try: @@ -1037,15 +1036,16 @@ This performs two tests to confirm cssh is able to work properly with the settin $self->parent->config->{comms} ); output '=back'; - output $self->loc(q{Configuration options to watch for in ssh are}); + output $self->loc(q{Configuration options to watch for in ssh are:}); output '=over'; - output '=item ', - $self->loc( + output '=item *'; + output $self->loc( q{SSH doesn't understand [_1] - remove the option from the [_2] file}, 'C<-o ConnectTimeout=10>', 'F<$HOME/.clusterssh/config>' ); - output '=item ', + output '=item *'; + output $self->loc( q{OpenSSH-3.8 using untrusted ssh tunnels - use [_1] instead of [_2] or use [_3] in [_4] (if you change the default ssh options from [_5] to [_6])}, 'C<-Y>', @@ -1057,9 +1057,16 @@ This performs two tests to confirm cssh is able to work properly with the settin ); output '=back'; - output '=item *'; + output '=head1 ', $self->loc('SUPPORT AND REPORTING BUGS'); + output $self->loc( - q{If you require support, please run the following commands and post it on the web site in the support/problems forum:} + q{A web site for comments, requests, bug reports and bug fixes/patches is available at: [_1]}, + 'L' + ); + + output $self->loc( + q{If you require support, please run the following commands and create an issue via: [_1]}, + 'L', ); output 'C<< perl -V >>'; output q{C<< perl -MTk -e 'print $Tk::VERSION,$/' >>}; @@ -1067,35 +1074,27 @@ This performs two tests to confirm cssh is able to work properly with the settin q{C<< perl -MX11::Protocol -e 'print $X11::Protocol::VERSION,$/' >>}; output 'C<< cat /etc/csshrc $HOME/.clusterssh/config >>'; - output '=item *'; output $self->loc( q{Using the debug option (--debug) will turn on debugging output. Repeat the option to increase the amount of debug. However, if possible please only use this option with one host at a time, e.g. [_1] due to the amount of output produced (in both main and child windows).}, 'C<< cssh --debug >>' ); - output '=back'; output '=head1 ', $self->loc('SEE ALSO'); output $self->loc( - q{L, + q{L, C, L, L, C} ); - output '=head1 ', $self->loc('CREDITS'); - output $self->loc( - 'A web site for comments, requests, bug reports and bug fixes/patches is available at: [_1]', - 'L' - ); - output '=head1 ', $self->loc('AUTHOR'); output 'Duncan Ferguson, C<< >>'; output '=head1 ', $self->loc('LICENSE AND COPYRIGHT'); output $self->loc( q{ -Copyright 1999-2016 Duncan Ferguson. +Copyright 1999-2018 Duncan Ferguson. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. From 915a55b3bd812c5fc9a13834934ec6d701943eaa Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Fri, 9 Mar 2018 13:40:31 +0000 Subject: [PATCH 06/12] Perltidy --- lib/App/ClusterSSH/Getopt.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lib/App/ClusterSSH/Getopt.pm b/lib/App/ClusterSSH/Getopt.pm index 741451b..2549a95 100644 --- a/lib/App/ClusterSSH/Getopt.pm +++ b/lib/App/ClusterSSH/Getopt.pm @@ -1043,10 +1043,9 @@ This performs two tests to confirm cssh is able to work properly with the settin q{SSH doesn't understand [_1] - remove the option from the [_2] file}, 'C<-o ConnectTimeout=10>', 'F<$HOME/.clusterssh/config>' - ); + ); output '=item *'; - output - $self->loc( + output $self->loc( q{OpenSSH-3.8 using untrusted ssh tunnels - use [_1] instead of [_2] or use [_3] in [_4] (if you change the default ssh options from [_5] to [_6])}, 'C<-Y>', 'C<-X>', @@ -1054,7 +1053,7 @@ This performs two tests to confirm cssh is able to work properly with the settin 'F<$HOME/.ssh/ssh_config>', 'C<-x>', 'C<-X>' - ); + ); output '=back'; output '=head1 ', $self->loc('SUPPORT AND REPORTING BUGS'); @@ -1065,7 +1064,7 @@ This performs two tests to confirm cssh is able to work properly with the settin ); output $self->loc( - q{If you require support, please run the following commands and create an issue via: [_1]}, + q{If you require support, please run the following commands and create an issue via: [_1]}, 'L', ); output 'C<< perl -V >>'; From 314c91d8c77ae2692f91134ebcf53405f6260c0b Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Wed, 14 Mar 2018 18:48:30 +0000 Subject: [PATCH 07/12] Augment the 'clean' action in Build.PL Remove generated files within the bin directory. Also, remove references to sourceforge and run through perltidy. --- Build.PL | 34 +++++++++++++++++++++++++++------- 1 file changed, 27 insertions(+), 7 deletions(-) diff --git a/Build.PL b/Build.PL index 8c5f2d0..15cf306 100644 --- a/Build.PL +++ b/Build.PL @@ -82,6 +82,19 @@ EOF $self->SUPER::ACTION_dist; } + + sub ACTION_clean { + my ($self, @args) = @_; + + for my $file (keys $self->script_files ) { + if( -e $file) { + print "Removing '$file'",$/; + unlink $file; + } + } + + $self->SUPER::ACTION_clean; + } }, ); @@ -89,7 +102,8 @@ my $build = $class->new( meta_merge => { resources => { Repository => [ - 'http://clusterssh.git.sourceforge.net/', + + #'http://clusterssh.git.sourceforge.net/', $project_info{repository}, ], bugtracker => $project_info{tracker}, @@ -132,16 +146,22 @@ my $build = $class->new( add_to_cleanup => ['App-ClusterSSH-*'], create_makefile_pl => 'traditional', script_files => [ - 'bin/cssh', 'bin/csftp', - 'bin/ccon', 'bin/crsh', - 'bin/ctel', 'bin/clusterssh_bash_completion.dist' + 'bin/cssh', + 'bin/csftp', + 'bin/ccon', + 'bin/crsh', + 'bin/ctel', + 'bin/clusterssh_bash_completion.dist' ], get_options => { changes => { type => '=s' }, }, PL_files => { 'bin_PL/_build_docs' => [ - 'bin/cssh', 'bin/csftp', - 'bin/ccon', 'bin/crsh', - 'bin/ctel', 'bin/clusterssh_bash_completion.dist' + 'bin/cssh', + 'bin/csftp', + 'bin/ccon', + 'bin/crsh', + 'bin/ctel', + 'bin/clusterssh_bash_completion.dist' ], }, ); From f5f92105c6db001aa04f944294141dee4e09baf0 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Wed, 14 Mar 2018 18:49:35 +0000 Subject: [PATCH 08/12] Increase code test coverage slightly --- t/05getopts.t | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/t/05getopts.t b/t/05getopts.t index 8db8b10..d7be6bf 100644 --- a/t/05getopts.t +++ b/t/05getopts.t @@ -425,4 +425,15 @@ TODO: { is( $trap->die, undef, 'Expecting no die message' ); } +@ARGV = ( '--rows', 5, '--cols', 10 ); +$getopts = App::ClusterSSH::Getopt->new( parent => $mock_object, ); +trap { + $getopts->getopts; +}; + +$trap->did_return(" ... returned"); +$trap->quiet(" ... quietly"); +is( $mock_object->{cols}, 10, 'cols set correctly' ); +is( $mock_object->{rows}, 5, 'rows set correctly' ); + done_testing; From 0c6506e378c71b9875b53217c9ab5281a1a4ddb4 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Wed, 14 Mar 2018 18:50:20 +0000 Subject: [PATCH 09/12] Rebuild the README file from current source --- README | 58 +++++++++++++++++++++++++++++----------------------------- 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/README b/README index a3b2206..547de91 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME cssh - Cluster administration tool VERSION - This documentation is for version: 4.13.1 + This documentation is for version: 4.13.2 SYNOPSIS cssh [-a ''] [-K ] [-q] [-c ''] [-x ] @@ -640,57 +640,57 @@ KNOWN BUGS tell the difference between the two events, there is no fix (apart from rewriting everything directly in X). -REPORTING BUGS - * If you have issues running cssh, first try: +TROUBLESHOOTING + If you have issues running cssh, first try: - "cssh -e [user@][:port]" + "cssh -e [user@][:port]" - This performs two tests to confirm cssh is able to work properly - with the settings provided within the $HOME/.clusterssh/config file - (or internal defaults). + This performs two tests to confirm cssh is able to work properly with + the settings provided within the $HOME/.clusterssh/config file (or + internal defaults). - 1 Test the terminal window works with the options provided + 1 Test the terminal window works with the options provided - 2 Test ssh works to a host with the configured arguments + 2 Test ssh works to a host with the configured arguments - Configuration options to watch for in ssh are + Configuration options to watch for in ssh are: - SSH doesn't understand "-o ConnectTimeout=10" - remove the option + * SSH doesn't understand "-o ConnectTimeout=10" - remove the option from the $HOME/.clusterssh/config file - OpenSSH-3.8 using untrusted ssh tunnels - use "-Y" instead of "-X" + + * OpenSSH-3.8 using untrusted ssh tunnels - use "-Y" instead of "-X" or use "ForwardX11Trusted yes" in $HOME/.ssh/ssh_config (if you change the default ssh options from "-x" to "-X") - * If you require support, please run the following commands and post - it on the web site in the support/problems forum: +SUPPORT AND REPORTING BUGS + A web site for comments, requests, bug reports and bug fixes/patches is + available at: + + If you require support, please run the following commands and create an + issue via: - "perl -V" + "perl -V" - "perl -MTk -e 'print $Tk::VERSION,$/'" + "perl -MTk -e 'print $Tk::VERSION,$/'" - "perl -MX11::Protocol -e 'print $X11::Protocol::VERSION,$/'" + "perl -MX11::Protocol -e 'print $X11::Protocol::VERSION,$/'" - "cat /etc/csshrc $HOME/.clusterssh/config" + "cat /etc/csshrc $HOME/.clusterssh/config" - * Using the debug option (--debug) will turn on debugging output. - Repeat the option to increase the amount of debug. However, if - possible please only use this option with one host at a time, e.g. - "cssh --debug " due to the amount of output produced (in both - main and child windows). + Using the debug option (--debug) will turn on debugging output. Repeat + the option to increase the amount of debug. However, if possible please + only use this option with one host at a time, e.g. "cssh --debug " + due to the amount of output produced (in both main and child windows). SEE ALSO - , "ssh", Tk::overview, + , "ssh", Tk::overview, X11::Protocol, "perl" -CREDITS - A web site for comments, requests, bug reports and bug fixes/patches is - available at: - AUTHOR Duncan Ferguson, "" LICENSE AND COPYRIGHT - Copyright 1999-2016 Duncan Ferguson. + Copyright 1999-2018 Duncan Ferguson. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published From 9bbe9fb1610e3b6631a30e791030f609f284109f Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Wed, 14 Mar 2018 18:50:45 +0000 Subject: [PATCH 10/12] Update META files for next release --- META.json | 5 ++--- META.yml | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/META.json b/META.json index acb25b4..fdd8b80 100644 --- a/META.json +++ b/META.json @@ -56,7 +56,7 @@ "provides" : { "App::ClusterSSH" : { "file" : "lib/App/ClusterSSH.pm", - "version" : "v4.13.1" + "version" : "v4.13.2" }, "App::ClusterSSH::Base" : { "file" : "lib/App/ClusterSSH/Base.pm", @@ -102,11 +102,10 @@ "http://dev.perl.org/licenses/" ], "x_Repository" : [ - "http://clusterssh.git.sourceforge.net/", "http://github.com/duncs/clusterssh" ], "x_coverage" : "https://coveralls.io/github/duncs/clusterssh" }, - "version" : "v4.13.1", + "version" : "v4.13.2", "x_serialization_backend" : "JSON::PP version 2.94" } diff --git a/META.yml b/META.yml index f220592..b32b57e 100644 --- a/META.yml +++ b/META.yml @@ -27,7 +27,7 @@ name: App-ClusterSSH provides: App::ClusterSSH: file: lib/App/ClusterSSH.pm - version: v4.13.1 + version: v4.13.2 App::ClusterSSH::Base: file: lib/App/ClusterSSH/Base.pm version: '0.02' @@ -68,10 +68,9 @@ requires: resources: Coverage: https://coveralls.io/github/duncs/clusterssh Repository: - - http://clusterssh.git.sourceforge.net/ - http://github.com/duncs/clusterssh bugtracker: https://github.com/duncs/clusterssh/issues homepage: http://github.com/duncs/clusterssh/wiki license: http://dev.perl.org/licenses/ -version: v4.13.1 +version: v4.13.2 x_serialization_backend: 'CPAN::Meta::YAML version 0.016' From d3d6e6832520debd585036541b1c6badace81273 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Wed, 14 Mar 2018 19:00:23 +0000 Subject: [PATCH 11/12] Force hash use --- Build.PL | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Build.PL b/Build.PL index 15cf306..7054cfa 100644 --- a/Build.PL +++ b/Build.PL @@ -86,7 +86,7 @@ EOF sub ACTION_clean { my ($self, @args) = @_; - for my $file (keys $self->script_files ) { + for my $file (keys %{ $self->script_files } ) { if( -e $file) { print "Removing '$file'",$/; unlink $file; From 205bf683bdc020cf46f285d9ca241dc74a042c1c Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Wed, 14 Mar 2018 19:40:15 +0000 Subject: [PATCH 12/12] Release 4.13.2 release date --- Changes | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Changes b/Changes index 0d64f3a..6cbebb3 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,4 @@ -4.13.2 0000-00-00 Duncan Ferguson +4.13.2 2018-03-14 Duncan Ferguson - Fix for running builds in parallel - Improvements to SUPPORT and REPORTING BUGS sections in documentation