diff --git a/perl-xCAT-2.0/xCAT/PPCcli.pm b/perl-xCAT-2.0/xCAT/PPCcli.pm index 33c7b3a19..ce9d02d5d 100644 --- a/perl-xCAT-2.0/xCAT/PPCcli.pm +++ b/perl-xCAT-2.0/xCAT/PPCcli.pm @@ -166,7 +166,7 @@ sub connect { } ], [ $pwd_prompt, sub { - if ( ++$pwd_sent == 1 ) { + if ( ++$pwd_sent ) { $ssh->send( "@$cred[1]\r" ); $ssh->exp_continue(); } @@ -576,7 +576,7 @@ sub lpar_netboot { my $name = shift; my $d = shift; my $opt = shift; - my $timeout = 600; + my $timeout = my $t = @$exp[7]*10; my $cmd = "lpar_netboot -t ent -f"; my $gateway = $opt->{G};