From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 25 Oct 2015 12:05:05 +0000 (+0000)
Subject: Reformat construct_cookie (no functional change)
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d2bd113d577a7f720c300b271d3e58453b3bc814;p=cgi-auth-flexible.git

Reformat construct_cookie (no functional change)
---

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;