[backend] small stylistic cleanup of BSSSL.pm

openSUSE · Mar 15, 2017 · 81f6ff7 · 81f6ff7
1 parent ecdea8b
commit 81f6ff7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 9 deletions.
diff --git a/src/backend/BSSSL.pm b/src/backend/BSSSL.pm
@@ -95,15 +95,11 @@ sub READLINE {
 sub READ {
   my ($sslr, undef, $len, $offset) = @_;
   my $buf = \$_[1];
-  my ($r, $rv, $code);
-  ($r, $rv)  = Net::SSLeay::read($sslr->[0]);
-  if ($rv < 0) {
-        $code = Net::SSLeay::get_error($sslr->[0], $rv);
-        if ($code == &Net::SSLeay::ERROR_WANT_READ || $code == &Net::SSLeay::ERROR_WANT_WRITE) {
-          $! = POSIX::EINTR;
-        }
+  my ($r, $rv)  = Net::SSLeay::read($sslr->[0]);
+  if ($rv && $rv < 0) {
+    my $code = Net::SSLeay::get_error($sslr->[0], $rv);
+    $! = POSIX::EINTR if $code == &Net::SSLeay::ERROR_WANT_READ || $code == &Net::SSLeay::ERROR_WANT_WRITE;
   }
-
   return undef unless defined $r;
   return length($$buf = $r) unless defined $offset;
   my $bl = length($$buf);

diff --git a/src/backend/bs_repserver b/src/backend/bs_repserver
@@ -55,7 +55,7 @@ use BSXML;
 use BSVerify;
 use BSHandoff;
 use Build;
-use BSWatcher ":https";
+use BSWatcher ':https';
 use BSStdServer;
 use BSXPath;
 use BSXPathKeys;