+sub _ssh_options {
+ my $reader = IO::File->new();
+ my $writer = IO::File->new();
+ my $error = IO::File->new();
+ open3($writer, $reader, $error, $ssh, '-V');
+ my $ssh_version = <$error>;
+ chomp($ssh_version);
+ if ( $ssh_version =~ /.*OpenSSH[-|_](\w+)\./ && $1 == 1 ) {
+ $equalspace = " ";
+ } else {
+ $equalspace = "=";
+ }
+ my @options = ( '-o', 'BatchMode'.$equalspace.'yes' );
+ if ( $ssh_version =~ /.*OpenSSH[-|_](\w+)\./ && $1 > 1 ) {
+ unshift @options, '-T';
+ }
+ @options;
+}
+