From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 2 Nov 2015 13:41:08 +0000 (+0100)
Subject: Hash-Zuweisung mit ungerader Anzahl Elemente vermeiden
X-Git-Tag: release-3.4.1~607
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/22744c20f79af700675837d8183bcd1ac8840a11?ds=sidebyside;hp=--cc

Hash-Zuweisung mit ungerader Anzahl Elemente vermeiden

In einem Hash wird eine leere Liste im ternären Ausdruck nun mal im
Listenkontext ausgewertet… und dadurch ist bei so einem Konstrukt die
rechte Seite potenziell leer (sie enthält kein Argument):

my %h = ( whatever => test() ? 1 : () );
---

22744c20f79af700675837d8183bcd1ac8840a11
diff --git a/SL/Layout/Top.pm b/SL/Layout/Top.pm
index 47ab065fb..e2e5d2df6 100644
--- a/SL/Layout/Top.pm
+++ b/SL/Layout/Top.pm
@@ -8,7 +8,7 @@ sub pre_content {
 
   $self->presenter->render('menu/header',
     now        => DateTime->now_local,
-    is_fastcgi => $::dispatcher ? scalar($::dispatcher->interface_type =~ /fastcgi/i) : (),
+    is_fastcgi => $::dispatcher ? scalar($::dispatcher->interface_type =~ /fastcgi/i) : 0,
     is_links   => scalar($ENV{HTTP_USER_AGENT}         =~ /links/i),
   );
 }