Merge pull request #73 from patrickbkr/write-bytes

Make `.write`s Promise result return the written bytes
raku-community-modules · Mar 3, 2024 · 488576c · 488576c
2 parents 7caec64 + 51e4974
commit 488576c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/IO/Socket/Async/SSL.pm6 b/lib/IO/Socket/Async/SSL.pm6
@@ -931,14 +931,15 @@ class IO::Socket::Async::SSL {
                 ));
                 return $p;
             }
-            OpenSSL::SSL::SSL_write($!ssl, $b, $b.bytes);
+            my $ret = OpenSSL::SSL::SSL_write($!ssl, $b, $b.bytes);
             my $p = start {
                 $lib-lock.protect: {
                     self!flush-read-bio();
                     # The following doesn't race on $p assignment due to the
                     # holding of $lib-lock in the code with the assignment.
                     @!outstanding-writes .= grep({ $_ !=== $p });
                 }
+                $ret
             }
             @!outstanding-writes.push($p);
             $p