From fd1fb704ee94c12373bb482e1b26dadc256cfd1d Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 4 Jan 2011 11:14:50 +0100
Subject: [PATCH] Nicht exportierte constant muss unter strict als Funktion
 aufgerufen werden.

---
 SL/Controller/Base.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm
index c63a8ee56..c79ceecac 100644
--- a/SL/Controller/Base.pm
+++ b/SL/Controller/Base.pm
@@ -55,7 +55,7 @@ sub render {
       my $content_type  = $options->{type} eq 'js' ? 'text/javascript' : 'text/html';
 
       print $::form->create_http_response(content_type => $content_type,
-                                          charset      => $::dbcharset || Common::DEFAULT_CHARSET);
+                                          charset      => $::dbcharset || Common::DEFAULT_CHARSET());
 
     } else {
       $::form->{title} = $locals{title} if $locals{title};
-- 
2.20.1