repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: ff3357d7e4f33483a1605b3611146777fcfcd11f:
path_to: 
revision_to: 

commit ff3357d7e4f33483a1605b3611146777fcfcd11f
Author: Marc Lehmann 
Date:   Tue Jan 17 09:34:21 2006 +0000

    *** empty log message ***

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs

--- 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

-----END OF PAGE-----