--- rxvt-unicode/src/main.C	2006/01/16 06:37:52	1.177
+++ rxvt-unicode/src/main.C	2006/01/16 08:48:09	1.179
@@ -91,14 +91,6 @@
   rxvt_set_locale (savelocale);
 }
 
-void
-rxvt_term::make_current () const
-{
-  SET_R (this);
-  rxvt_set_locale (locale);
-  set_environ (envv);
-}
-
 #if ENABLE_COMBINING
 class rxvt_composite_vec rxvt_composite;
 
@@ -531,8 +523,7 @@
             }
         }
 #endif
-      rxvt_perl.init ();
-      setlocale (LC_CTYPE, curlocale); // perl init destroys current locale
+      rxvt_perl.init (this);
       HOOK_INVOKE ((this, HOOK_INIT, DT_END));
     }
 #endif