*** empty log message ***

diff --git a/src/perl/selection-popup b/src/perl/selection-popup
index 3adfd9d5a06618bdfa09072c64ebfb4f71f0b310..3233d47f02775dd2bd18b0d01299494acf907553 100644 (file)
--- a/src/perl/selection-popup
+++ b/src/perl/selection-popup
@@ -35,10 +35,14 @@ sub on_button_press {
       };
 
       for ($text) {
+         $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });
+
          /^(\S+):(\d+):?$/
             and $add_button->("vi-commands to load '$1'" => sub { s/^(\S+):(\d+):?$/\x1b:e $1\x0d:$2\x0d/ });
+
          /%[0-9a-fA-F]{2}/ && !/%[^0-9a-fA-F]/ && !/%.[^0-9a-fA-F]/
             and $add_button->("uri unescape" => sub { s/%([0-9a-fA-F]{2})/chr hex $1/ge });
+
          /^(http|ftp|telnet|irc|news):\//
             and $add_button->("run x-www-browser" => sub { system "x-www-browser \Q$_\E &" });
       }

diff --git a/src/urxvt.pm b/src/urxvt.pm
index 10b057acf0c748003042c8741a6eab7f478fb42d..6b908ec72c5fab25b8f8ffc3aeee5d47070fe65a 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -431,8 +431,10 @@ BEGIN {
       urxvt::warn ($msg);
    };
 
-   $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
+   delete $ENV{IFS};
    delete $ENV{CDPATH};
+   delete $ENV{BASH_ENV};
+   $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
 }
 
 my @hook_count;