--- rxvt-unicode/src/rxvtperl.xs	2006/01/12 01:30:53	1.57
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/12 05:22:47	1.60
@@ -31,6 +31,8 @@
 #include <cstddef>
 #include <cstdarg>
 
+#include "unistd.h"
+
 #include "iom.h"
 #include "rxvt.h"
 #include "keyboard.h"
@@ -395,10 +397,6 @@
 
 static PerlInterpreter *perl;
 
-rxvt_perl_interp::rxvt_perl_interp ()
-{
-}
-
 rxvt_perl_interp::~rxvt_perl_interp ()
 {
   if (perl)
@@ -716,6 +714,9 @@
         OUTPUT:
         RETVAL
 
+void
+_exit (int status)
+
 bool
 safe ()
 	CODE:
@@ -1382,6 +1383,16 @@
 	OUTPUT:
         RETVAL
 
+#void
+#rxvt_term::selection_clear ()
+
+void
+rxvt_term::selection_make (U32 eventtime, bool rect = false)
+	CODE:
+        THIS->selection.op = SELECTION_CONT;
+        THIS->selection.rect = rect;
+        THIS->selection_make (eventtime);
+
 int
 rxvt_term::selection_grab (U32 eventtime)