shutdown/close added

sergot · Jul 9, 2014 · 6d7e4d1 · 6d7e4d1
1 parent 98f2870
commit 6d7e4d1
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/lib/OpenSSL.pm6 b/lib/OpenSSL.pm6
@@ -62,6 +62,14 @@ method read(Int $n, Bool :$bin = False) {
     return $bin ?? $buf !! $carray[0..$read]>>.chr.join('');
 }
 
+method shutdown {
+    OpenSSL::SSL::SSL_shutdown($.ssl);
+}
+
+method close {
+    self.shutdown;
+}
+
 sub get_buf(int32) returns CArray[uint8] is native('libbuf') { * }
 
 sub str-to-carray(Str $s) {