ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.xs
(Generate patch)

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.69 by root, Mon Jan 16 15:00:20 2006 UTC vs.
Revision 1.70 by root, Tue Jan 17 09:34:21 2006 UTC

440 swap (perl_environ, environ); 440 swap (perl_environ, environ);
441 441
442 rxvt_pop_locale (); 442 rxvt_pop_locale ();
443 } 443 }
444 444
445 if (perl)
446 {
445 // runs outside of perls ENV 447 // runs outside of perls ENV
446 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); 448 term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");
447 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0); 449 hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);
450 }
448} 451}
449 452
450static void 453static void
451ungrab (rxvt_term *THIS) 454ungrab (rxvt_term *THIS)
452{ 455{

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines