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.57 by root, Thu Jan 12 01:30:53 2006 UTC vs.
Revision 1.59 by root, Thu Jan 12 02:20:56 2006 UTC

… …
29#include "../config.h" 29#include "../config.h"
30 30
31#include <cstddef> 31#include <cstddef>
32#include <cstdarg> 32#include <cstdarg>
33 33
34#include "unistd.h"
35
34#include "iom.h" 36#include "iom.h"
35#include "rxvt.h" 37#include "rxvt.h"
36#include "keyboard.h" 38#include "keyboard.h"
37#include "rxvtutil.h" 39#include "rxvtutil.h"
38#include "rxvtperl.h" 40#include "rxvtperl.h"
… …
392///////////////////////////////////////////////////////////////////////////// 394/////////////////////////////////////////////////////////////////////////////
393 395
394struct rxvt_perl_interp rxvt_perl; 396struct rxvt_perl_interp rxvt_perl;
395 397
396static PerlInterpreter *perl; 398static PerlInterpreter *perl;
397
398rxvt_perl_interp::rxvt_perl_interp ()
399{
400}
401 399
402rxvt_perl_interp::~rxvt_perl_interp () 400rxvt_perl_interp::~rxvt_perl_interp ()
403{ 401{
404 if (perl) 402 if (perl)
405 { 403 {
… …
714 RETVAL = newSVsv (sv); 712 RETVAL = newSVsv (sv);
715 SvTAINTED_off (RETVAL); 713 SvTAINTED_off (RETVAL);
716 OUTPUT: 714 OUTPUT:
717 RETVAL 715 RETVAL
718 716
717void
718_exit (int status)
719
719bool 720bool
720safe () 721safe ()
721 CODE: 722 CODE:
722 RETVAL = !rxvt_tainted (); 723 RETVAL = !rxvt_tainted ();
723 OUTPUT: 724 OUTPUT:

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines