--- rxvt-unicode/src/main.C	2006/01/02 18:20:23	1.156
+++ rxvt-unicode/src/main.C	2006/01/04 04:42:45	1.159
@@ -489,11 +489,13 @@
 #endif
 
 #if ENABLE_PERL
-  rxvt_perl.init ();
+  if (rs[Rs_perl_ext] && *rs[Rs_perl_ext])
+    {
+      rxvt_perl.init ();
+      PERL_INVOKE ((this, HOOK_INIT, DT_END));
+    }
 #endif
 
-  PERL_INVOKE ((this, HOOK_INIT, DT_END));
-
   create_windows (argc, argv);
 
   dDisp;
@@ -923,7 +925,7 @@
 
   fwidth  = prop.width;
   fheight = prop.height;
-  fbase   = (*fs)[1]->ascent;
+  fbase   = prop.ascent;
 
   for (int style = 1; style < 4; style++)
     {
@@ -1222,11 +1224,11 @@
       if (menubar_visible ())
         XMoveResizeWindow (disp, menuBar.win,
                            window_vt_x, 0,
-                           TermWin_TotalWidth (), menuBar_TotalHeight ());
+                           width, menuBar_TotalHeight ());
 
       XMoveResizeWindow (disp, vt,
                          window_vt_x, window_vt_y,
-                         TermWin_TotalWidth (), TermWin_TotalHeight ());
+                         width, height);
 
       scr_clear ();
 #ifdef XPM_BACKGROUND