in reply to Re: Dynamic variables and strictin thread Dynamic variables and strict
Instead of
my ($var,$val) = /^\s*(.*?)\s*=\s*(.*)/; $conf{$var} = $val; [download]
if (/^\s*(.*?)\s*=\s*(.*)/) { $conf{$1} = $2; } else { die "slowly and painfully"; } [download]