From 0d816a7b6856720b1d017f3b9b4ab7ef7a4d5dfc Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 13 Jan 2011 15:13:33 +0100
Subject: [PATCH] Verhindern, dass Strings als Hash-Referenz misbraucht werden
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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.
---
 SL/CVar.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/SL/CVar.pm b/SL/CVar.pm
index 8c4f6a899..0de9a4bcf 100644
--- a/SL/CVar.pm
+++ b/SL/CVar.pm
@@ -30,6 +30,7 @@ sub get_configs {
     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);
 
-- 
2.20.1