Verhindern, dass Strings als Hash-Referenz misbraucht werden

Ich bin gerade zu unkonzentriert, um die tatsächliche Ursache zu
finden. Es hat etwas damit zu tun, dass ein Callback zusammengebaut
wird und dabei $::form->{CVAR_CONFIGS} eine Hash-Referenz ist, die im
Callback sclicht als String erscheint.

diff --git a/SL/CVar.pm b/SL/CVar.pm
index 8c4f6a899feab2bb8240078234b996153f103304..0de9a4bcf777db9722aeb41bfe7f3992200602c0 100644 (file)
--- a/SL/CVar.pm
+++ b/SL/CVar.pm
@@ -30,6 +30,7 @@ sub get_configs {
     FROM custom_variable_configs $where ORDER BY sortkey
 SQL
 
     FROM custom_variable_configs $where ORDER BY sortkey
 SQL
 

+  $::form->{CVAR_CONFIGS} = {} unless 'HASH' eq ref $::form->{CVAR_CONFIGS};

   if (!$::form->{CVAR_CONFIGS}->{$params{module}}) {
     my $configs  = selectall_hashref_query($form, $dbh, $query, @values);
 
   if (!$::form->{CVAR_CONFIGS}->{$params{module}}) {
     my $configs  = selectall_hashref_query($form, $dbh, $query, @values);