[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.251 by sf-exg, Wed Jul 14 12:39:57 2021 UTC vs.
Revision 1.255 by root, Sun Nov 21 23:00:48 2021 UTC

       THIS->perl.grabtime = 0;
     }
 }
 bool
-rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
+rxvt_perl_interp::invoke (rxvt_term *term, int htype, ...)
 {
   if (!perl || !term->perl.self)
     return false;
   localise_env set_environ (perl_environ);
   } *civ, const_iv[] = {
 #   define const_iv(name) { # name, (IV)name }
     const_iv (HOOK_INIT),
     const_iv (HOOK_DESTROY),
     const_iv (HOOK_ACTION),
+    const_iv (HOOK_OSC_SEQ),
+    const_iv (HOOK_OSC_SEQ_PERL),
     const_iv (NUM_RESOURCES),
     const_iv (DEFAULT_RSTYLE),
     const_iv (OVERLAY_RSTYLE),
     const_iv (Color_Bits),
 SV *
 rxvt_term::locale_encode (SV *str)
 	CODE:
 {
+	if (!SvOK (str))
+          XSRETURN_UNDEF;
         wchar_t *wstr = sv2wcs (str);
 	rxvt_push_locale (THIS->locale);
         char *mbstr = rxvt_wcstombs (wstr);
         rxvt_pop_locale ();
 SV *
 rxvt_term::locale_decode (SV *octets)
 	CODE:
 {
+	if (!SvOK (octets))
+          XSRETURN_UNDEF;
 	STRLEN len;
         char *data = SvPVbyte (octets, len);
 	rxvt_push_locale (THIS->locale);
         wchar_t *wstr = rxvt_mbstowcs (data, len);
         THIS->rstyle = new_rstyle;
         OUTPUT:
 	RETVAL
 int
-rxvt_term::view_start (int newval = 1)
+rxvt_term::view_start (int newval = 0)
 	PROTOTYPE: $;$
 	CODE:
 {
         RETVAL = THIS->view_start;
         if (items > 1)

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