fixed test command

This commit is contained in:
Roland Gruber 2005-10-03 10:41:16 +00:00
parent 6b3df57f59
commit 98fe55d275
1 changed files with 4 additions and 1 deletions

View File

@ -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" );