--- rxvt-unicode/src/rxvtperl.h	2006/01/06 03:40:19	1.10
+++ rxvt-unicode/src/rxvtperl.h	2006/01/13 04:59:04	1.18
@@ -6,7 +6,7 @@
 #define RXVTPERL_H_
 
 #if ENABLE_PERL
-# define SHOULD_INVOKE(htype) rxvt_perl.should_invoke [htype]
+# define SHOULD_INVOKE(htype) perl.should_invoke [htype]
 # define HOOK_INVOKE(args) rxvt_perl.invoke args
 
 #include "rxvt.h"
@@ -15,9 +15,9 @@
   DT_END,
   DT_INT,
   DT_LONG,
-  DT_STRING,
-  DT_STRING_LEN,
-  DT_USTRING_LEN,
+  DT_STR,
+  DT_STR_LEN,
+  DT_WCS_LEN,
   DT_XEVENT,
 };
 
@@ -28,12 +28,18 @@
   HOOK_NUM,
 };
 
+struct rxvt_perl_term
+{
+  void *self;
+  unsigned long grabtime;
+  uint8_t should_invoke[HOOK_NUM];
+};
+
 struct rxvt_perl_interp
 {
-  rxvt_perl_interp ();
-  ~rxvt_perl_interp ();
+  char **perl_environ;
 
-  bool should_invoke[HOOK_NUM];
+  ~rxvt_perl_interp ();
 
   void init ();
   bool invoke (rxvt_term *term, hook_type htype, ...);
@@ -44,7 +50,7 @@
 
 #else
 # define SHOULD_INVOKE(htype) false
-# define PERL_INVOKE(args) false
+# define HOOK_INVOKE(args) false
 #endif
 
 #endif