Implement native-descriptor on handles/sockets.

Provides a way to get the (platform-specific) file descriptor, HANDLE, etc.
rakudo · Dec 14, 2015 · a819231 · a819231
1 parent 03cbe70
commit a819231
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 1 deletion.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -849,6 +849,10 @@ my class IO::Handle does IO {
         IO::Notification.watch-path($!path);
     }
 #?endif
+
+    method native-descriptor(IO::Handle:D:) {
+        nqp::filenofh($!PIO)
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/IO/Socket.pm b/src/core/IO/Socket.pm
@@ -87,6 +87,10 @@ my role IO::Socket does IO {
         nqp::closefh($!PIO);
         $!PIO := Mu;
     }
+
+    method native-descriptor(::?CLASS:D:) {
+        nqp::filenofh($!PIO)
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/tools/build/NQP_REVISION b/tools/build/NQP_REVISION
@@ -1 +1 @@
-2015.11-45-g044d4dd
+2015.11-47-gcf246d6