--- rxvt-unicode/src/rxvtperl.h	2006/01/06 01:16:58	1.9
+++ rxvt-unicode/src/rxvtperl.h	2006/01/08 08:43:11	1.14
@@ -15,8 +15,9 @@
   DT_END,
   DT_INT,
   DT_LONG,
-  DT_STRING,
-  DT_USTRING_LEN,
+  DT_STR,
+  DT_STR_LEN,
+  DT_WCS_LEN,
   DT_XEVENT,
 };
 
@@ -27,6 +28,12 @@
   HOOK_NUM,
 };
 
+struct rxvt_perl_term
+{
+  void *self;
+  unsigned long grabtime;
+};
+
 struct rxvt_perl_interp
 {
   rxvt_perl_interp ();
@@ -34,7 +41,7 @@
 
   bool should_invoke[HOOK_NUM];
 
-  void init ();
+  void init (bool tainted);
   bool invoke (rxvt_term *term, hook_type htype, ...);
   void line_update (rxvt_term *term);
 };
@@ -43,7 +50,7 @@
 
 #else
 # define SHOULD_INVOKE(htype) false
-# define PERL_INVOKE(args) false
+# define HOOK_INVOKE(args) false
 #endif
 
 #endif