diff --git a/perl-xCAT/xCAT/PPCvitals.pm b/perl-xCAT/xCAT/PPCvitals.pm index e82f6e41d..b92c62841 100644 --- a/perl-xCAT/xCAT/PPCvitals.pm +++ b/perl-xCAT/xCAT/PPCvitals.pm @@ -146,15 +146,17 @@ sub enumerate_lcds { foreach $value (@$values){ #Return error $Rc = shift @$value; - if ($Rc != SUCCESS){ - push @refcode, ( [$Rc, @$value[0]] ); - } else { - if( @$value[0] =~ /refcode=(\w+)/){ - push @refcode, ( [$Rc, $1] ); - } else { - push @refcode, ( [$Rc, @$value[0]]); + if( @$value[0] =~ /refcode=(\w*)/){ + my $code = $1; + if ( ! $code) + { + push @refcode, [$Rc, "blank"]; } - } + else + { + push @refcode, [$Rc, $code] ; + } + } } return \@refcode;