remove double sigil and dereference instead
This commit is contained in:
parent
d0228ddbb4
commit
1989242c8e
1 changed files with 1 additions and 1 deletions
|
|
@ -518,7 +518,7 @@ sub new {
|
|||
if ($profile{$key} eq "" && $default{$key}) {
|
||||
$value = eval($default{$key});
|
||||
if (ref $value eq "ARRAY") {
|
||||
$profile{$key} = $$value[0];
|
||||
$profile{$key} = $value->[0];
|
||||
} else {
|
||||
$profile{$key} = $value;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue