fixed test command
This commit is contained in:
parent
6b3df57f59
commit
98fe55d275
|
@ -226,7 +226,10 @@ else {
|
||||||
if ($ARGV[2] ne "*test") {
|
if ($ARGV[2] ne "*test") {
|
||||||
$string = do {local $/;<STDIN>};
|
$string = do {local $/;<STDIN>};
|
||||||
}
|
}
|
||||||
else { $argv = "*test\n"; }
|
else {
|
||||||
|
$argv = "*test\n";
|
||||||
|
$string = " \n";
|
||||||
|
}
|
||||||
my $ssh = Net::SSH::Perl->new($hostname, options=>[
|
my $ssh = Net::SSH::Perl->new($hostname, options=>[
|
||||||
"UserKnownHostsFile /dev/null"],
|
"UserKnownHostsFile /dev/null"],
|
||||||
protocol => "2,1" );
|
protocol => "2,1" );
|
||||||
|
|
Loading…
Reference in New Issue