Append session_duration if set [issue session_duration not used in set …

…PerlDancer#8] Signed-off-by: Dave Smith <[email protected]>
DaveSophoServices · Jan 23, 2020 · f99bdbf · f99bdbf
1 parent 51d3080
commit f99bdbf
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/Dancer2/Session/Memcached.pm b/lib/Dancer2/Session/Memcached.pm
@@ -82,6 +82,9 @@ sub _flush {
     croak "Memcache cluster unreachable _flush"
         if $self->fatal_cluster_unreachable && not keys %{$self->_memcached->stats(['misc'])};
 
+    # append session_duration if set
+    push @_, $self->session_duration if $self->session_duration and $#_ < 2;
+
     return $self->_memcached->set( @_ );
 }