--- rxvt-unicode/src/rxvt.C	2006/01/22 00:36:59	1.11
+++ rxvt-unicode/src/rxvt.C	2006/01/22 11:57:06	1.12
@@ -32,12 +32,16 @@
   {
     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;