diff --git a/perl-xCAT-2.0/xCAT/PPCfsp.pm b/perl-xCAT-2.0/xCAT/PPCfsp.pm index 1f64c370b..92579e933 100644 --- a/perl-xCAT-2.0/xCAT/PPCfsp.pm +++ b/perl-xCAT-2.0/xCAT/PPCfsp.pm @@ -1336,7 +1336,7 @@ sub readdecfg { ################################## # Select radio button ################################## - my $value = %$_->{value}; + my $value = ( ref($_) eq 'HASH' ) ? %$_->{value} : $_; $radio->value( $value ); ##################################