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 47ab065fbebd77a4829064d3e23ae6af6f33c120..e2e5d2df633292378235b7dacc0941ef2d1acb01 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,
 
   $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),
   );
 }
     is_links   => scalar($ENV{HTTP_USER_AGENT}         =~ /links/i),
   );
 }