Optimize retrieving session identifier

[distdns.git] / server.cgi

diff --git a/server.cgi b/server.cgi
index c2df36ba3ab20da78e1d84e211cfa265ea70199f..1adcf0933b6ee9d71425fcd7cf503292e7a7de2a 100755 (executable)
--- a/server.cgi
+++ b/server.cgi
@@ -88,8 +88,7 @@ if ($params{init}) {
 }
 else {
     open(my $fh, '<', $session_file) or die "Cannot open $session_file for reading: $!\nPerhaps try running --init\n";
-    my $session = do { local $/; <$fh> };
-    chomp $session;
+    chomp(my $session = <$fh>);
     close($fh);
 
     die "Session ID mismatch\n" unless $params{session} eq $session;