*** empty log message ***

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 6cd8dac1c534656fdc9c502f229dd801bc20e57c..4693af34896c3cc042f5d6e91999f5eac26811e8 100644 (file)
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -442,9 +442,12 @@ rxvt_perl_interp::init (rxvt_term *term)
       rxvt_pop_locale ();
     }
 
-  // runs outside of perls ENV
-  term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
-  hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);
+  if (perl)
+    {
+      // runs outside of perls ENV
+      term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
+      hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);
+    }
 }
 
 static void