repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 3249195325a2d8bf104b6d1acd4e079d2ef74fdf:
path_to: 
revision_to: 

commit 3249195325a2d8bf104b6d1acd4e079d2ef74fdf
Author: Marc Lehmann 
Date:   Sat Dec 17 22:47:16 2011 +0000

    *** empty log message ***

diff --git a/Changes b/Changes

--- a/Changes
+++ b/Changes
@@ -21,6 +21,7 @@ TODO: perl-shell-window? perl-unix-socket?
 TODO: command line editing when icanon?
 TODO: split ROW into a ROW_fast (0..total*2-1) and ROW macros?

+TODO: popup items should have access to original self
 	- INCOMPATIBLE CHANGE: the urxvtd default socket path is now
 	  $HOME/.urxvt/urxvtd-.
 	- INCOMPATIBLE CHANGE: the "list" keysym expansion now requires
@@ -61,12 +62,14 @@ TODO: split ROW into a ROW_fast (0..total*2-1) and ROW macros?
 	  'focus follows mouse' and the focus is on the main window
 	  but not on the active terminal window (patch by Martin
 	  Pohlack).
-	- Support for the freedesktop startup-notification protocol (patch by
+	- support for the freedesktop startup-notification protocol (patch by
 	  Michael Stapelberg).
 	- the direction of VPR and VPB commands was reversed.
-	- Fix alignment of inherited root pixmap when it is a different size
+	- fix alignment of inherited root pixmap when it is a different size
 	  than the root window and the terminal window is off the left or top
 	  edge (Mikachu).
+        - make $self visible in "eval perl expression" popup action, also
+          handle exceptions better.

 9.12 Wed Jun 29 14:34:28 CEST 2011
 	- fix regression in processing of SelectionNotify events.
diff --git a/src/perl/selection-popup b/src/perl/selection-popup

--- a/src/perl/selection-popup
+++ b/src/perl/selection-popup
@@ -63,7 +63,7 @@ sub on_button_press {
             and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });

          /./
-            and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ });
+            and $add_button->("eval perl expression" => sub { my $self = $self; no warnings; $_ = eval $_; $_ = "$@" if $@ });

          /./
             and $add_button->((sprintf "to unicode hex index (%x)", ord) => sub { $_ = sprintf "%x", ord });

-----END OF PAGE-----