ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection-popup
(Generate patch)

Comparing rxvt-unicode/src/perl/selection-popup (file contents):
Revision 1.21 by ayin, Wed Oct 31 18:15:42 2007 UTC vs.
Revision 1.22 by root, Tue Jan 4 21:34:18 2011 UTC

… …
54 } 54 }
55 }); 55 });
56 }; 56 };
57 57
58 for ($text) { 58 for ($text) {
59 /\n/
60 and $add_button->("newlines to spaces" => sub { y/\n/ / });
61
59 /./ 62 /./
60 and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ }); 63 and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });
61 64
62 /./ 65 /./
63 and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ }); 66 and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ });

Diff Legend

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