Fix call to adpallinfo

This commit is contained in:
Georg Schönberger
2014-10-06 10:57:19 +02:00
parent 937109774b
commit 088ec995df

View File

@@ -209,8 +209,8 @@ sub getControllerInfo{
my $commands_a = shift;
my $command = '';
my $storcliPath =~ /^(.*)\/c[0-9]+/;
$command = $storcliPath.'adpallinfo a'.$CONTROLLER;
$storcli =~ /^(.*)\/c[0-9]+/;
$command = $1.'adpallinfo a'.$CONTROLLER;
push $commands_a, $command;
my @output = `$command`;
if($? >> 8 != 0){