--- rxvt-unicode/src/rxvttoolkit.C	2011/02/21 07:18:19	1.120
+++ rxvt-unicode/src/rxvttoolkit.C	2011/02/21 08:10:10	1.122
@@ -3,7 +3,7 @@
  *----------------------------------------------------------------------*
  *
  * All portions of code are copyright by their respective author/s.
- * Copyright (c) 2003-2007 Marc Lehmann <pcg@goof.com>
+ * Copyright (c) 2003-2011 Marc Lehmann <schmorp@schmorp.de>
  * Copyright (c) 2011      Emanuele Giaquinta <e.giaquinta@glauco.it>
  *
  * This program is free software; you can redistribute it and/or modify
@@ -894,8 +894,8 @@
   );
 }
 
-rxvt_selection::rxvt_selection (rxvt_display *disp, int selnum, Time tm, Window win, Atom prop, rxvt_term *term, void *cb_sv)
-: display (disp), request_time (tm), request_win (win), request_prop (prop), term (term), cb_sv (cb_sv)
+rxvt_selection::rxvt_selection (rxvt_display *disp, int selnum, Time tm, Window win, Atom prop, rxvt_term *term)
+: display (disp), request_time (tm), request_win (win), request_prop (prop), term (term)
 {
   assert (selnum >= Sel_Primary && selnum <= Sel_Clipboard);
 
@@ -956,8 +956,8 @@
 #if ENABLE_PERL
   else
     {
-      stop ();
-      abort (); //TODO
+      stop (); // we do not really trust perl callbacks
+      rxvt_perl.selection_finish (this, data, len);
     }
 #endif
 }