From: root <root>
Date: Tue, 17 Jan 2006 09:34:21 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=1b32fa96803cfa28dafe06b8a3d5216418efb0f8;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 6cd8dac1..4693af34 100644
--- 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