remove double sigil and dereference instead

This commit is contained in:
Colin Kuskie 2007-12-24 04:23:32 +00:00
parent d0228ddbb4
commit 1989242c8e

View file

@ -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;
}