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 : () );

diff --git a/SL/Layout/Top.pm b/SL/Layout/Top.pm
index 47ab065..e2e5d2d 100644 (file)
--- 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),
   );
 }