From d2bd113d577a7f720c300b271d3e58453b3bc814 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 25 Oct 2015 12:05:05 +0000
Subject: [PATCH] Reformat construct_cookie (no functional change)

---
 cgi-auth-flexible.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 613ee90..284a23d 100644
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -655,12 +655,14 @@ sub construct_cookie ($$$) {
     my ($r, $cooks) = @_;
     return undef unless $cooks;
     my $c = $r->{Cgi};
-my @ca = (-name => $r->{S}{cookie_name},
-                             -value => $cooks,
-                             -path => $r->{S}{cookie_path},
-                             -domain => $r->_ch('get_cookie_domain'),
-                             -expires => '+'.$r->{S}{login_timeout}.'s',
-                             -secure => $r->{S}{encrypted_only});
+    my @ca = (
+	-name => $r->{S}{cookie_name},
+	-value => $cooks,
+	-path => $r->{S}{cookie_path},
+	-domain => $r->_ch('get_cookie_domain'),
+	-expires => '+'.$r->{S}{login_timeout}.'s',
+	-secure => $r->{S}{encrypted_only}
+	);
     my $cookie = $c->cookie(@ca);
 #print STDERR "CC $r $c $cooks $cookie (@ca).\n";
     return $cookie;
-- 
2.30.2