From 1b32fa96803cfa28dafe06b8a3d5216418efb0f8 Mon Sep 17 00:00:00 2001 From: root Date: Tue, 17 Jan 2006 09:34:21 +0000 Subject: [PATCH] *** empty log message *** --- src/rxvtperl.xs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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 -- 2.34.1