--- rxvt-unicode/src/rxvt.C	2004/09/02 07:44:40	1.10
+++ rxvt-unicode/src/rxvt.C	2006/01/22 11:57:06	1.12
@@ -23,15 +23,29 @@
 #include "../config.h"
 #include "rxvt.h"
 
+#include <cstdlib>
+#include <cstring>
+
 int
 main (int argc, const char *const *argv)
 try
   {
     rxvt_init ();
 
+#if ENABLE_PERL
+    stringvec *envv = new stringvec;
+
+    for (char **var = environ; *var; var++)
+      envv->push_back (strdup (*var));
+
+    envv->push_back (0);
+#else
+    stringvec *envv = 0;
+#endif
+
     rxvt_term *t = new rxvt_term;
 
-    if (!t->init (argc, argv))
+    if (!t->init (argc, argv, envv))
       return EXIT_FAILURE;
 
     io_manager::loop ();