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