--- rxvt-unicode/src/rxvtperl.xs	2006/01/22 11:57:06	1.89
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/22 20:39:47	1.90
@@ -1176,6 +1176,13 @@
 	OUTPUT:
         RETVAL
 
+int
+rxvt_term::pty_fd ()
+	CODE:
+        RETVAL = THIS->pty->pty;
+	OUTPUT:
+        RETVAL
+
 Window
 rxvt_term::parent ()
 	CODE: