Merge branch 'master' of github.com:duncs/clusterssh

Build.PL

@@ -7,7 +7,11 @@ use Module::Build;
 my $class = Module::Build->subclass(
     class => "Module::Build::Custom",
     code  => q{
-        use File::Slurp;
+    # don't check for errors; 'build_requires' should get this sorted
+    eval {
+        require File::Slurp;
+        require CPAN::Changes;
+    };
 
         sub ACTION_email {
             my ($self, @args) = @_;
@@ -18,7 +22,6 @@ my $class = Module::Build->subclass(
             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/) {

Changes

@@ -4,6 +4,7 @@
 - Ensure config file option for ssh_args is not lost when options is not used on command line (Github issue: 14)
 - New Send menu option to send a numeric value between 1 and 1024 (thanks to cqexbesd)
 - Remove all history when history window closed (thanks to Bill Rushmore)
+- Do not use system perl but whatever is found in PATH (to stop breaking perlbrew based builds)
 
 4.03_02 2014-08-10 Duncan Ferguson <duncan_ferguson@user.sf.net>
 - Fix behaviour when external cluster command is not defined or doesn't exist

bin_PL/_build_docs

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;

bin_PL/ccon

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
 

bin_PL/crsh

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
 

bin_PL/cssh

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
 

bin_PL/ctel

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
 

lib/App/ClusterSSH.pm

@@ -1209,7 +1209,7 @@ sub add_host_by_name() {
         $self->debug( 2, "host=", $menus{host_entry} );
         my @names
             = $self->resolve_names( split( /\s+/, $menus{host_entry} ) );
-        $self->debug( 0, 'Opening to: ', join( ' ', @names ) );
+        $self->debug( 0, 'Opening to: ', join( ' ', @names ) ) if (@names);
         $self->open_client_windows(@names);
     }
 
@@ -2011,7 +2011,7 @@ sub run {
     $self->debug( 2, "Capture map events" );
     $self->capture_map_events();
 
-    $self->debug( 0, 'Opening to: ', join( ' ', @servers ) );
+    $self->debug( 0, 'Opening to: ', join( ' ', @servers ) ) if (@servers);
     $self->open_client_windows(@servers);
 
     # Check here if we are tiling windows.  Here instead of in func so

t/perltidy.t

@@ -1,4 +1,4 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;
@@ -12,5 +12,5 @@ plan skip_all => "Test::PerlTidy required for testing code" if $@;
 
 run_tests(
     perltidyrc => $Bin . '/perltidyrc',
-    exclude    => [ '_build/', 'blib/' ]
+    exclude    => [ '_build/', 'blib/', 'Makefile.PL', ]
 );