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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.137 by root, Mon Feb 21 07:41:03 2011 UTC vs.
Revision 1.138 by root, Mon Feb 21 08:10:10 2011 UTC

       ENTER;
       SAVETMPS;
       PUSHMARK (SP);
+      EXTEND (SP, 2);
-      XPUSHs (sv_2mortal (newSVterm (term)));
+      PUSHs (sv_2mortal (newSVterm (term)));
-      XPUSHs (sv_2mortal (newSViv (htype)));
+      PUSHs (sv_2mortal (newSViv (htype)));
       for (;;) {
         data_type dt = (data_type)va_arg (ap, int);
         switch (dt)
       FREETMPS;
       LEAVE;
       if (SvTRUE (ERRSV))
         {
-          rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPV_nolen (ERRSV));
+          rxvt_warn ("perl hook %d evaluation error: %s", htype, SvPVbyte_nolen (ERRSV));
           ungrab (term); // better lose the grab than the session
         }
       event_consumed = !!count;
     }
       // don't allow further calls
       term->perl.self = 0;
     }
   return event_consumed;
+}
+void
+rxvt_perl_interp::selection_finish (rxvt_selection *sel, char *data, unsigned int len)
+{
+  localise_env set_environ (perl_environ);
+  ENTER;
+  SAVETMPS;
+  dSP;
+  XPUSHs (sv_2mortal (newSVpvn (data, len)));
+  call_sv ((SV *)sel->cb_sv, G_VOID | G_DISCARD | G_EVAL);
+  if (SvTRUE (ERRSV))
+    rxvt_warn ("perl selection callback evaluation error: %s", SvPVbyte_nolen (ERRSV));
+  FREETMPS;
+  LEAVE;
 }
 /////////////////////////////////////////////////////////////////////////////
 MODULE = urxvt             PACKAGE = urxvt

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