X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=tools.pl;h=f7e5c4efc4c25ff7da85a1501cfbe568f9bb5dd8;hb=edd1cbfd1a969e16d8df9988eb448a53c97c02e7;hp=bf6af1804e4f3e6456d79e88646a9fd2c65ccd84;hpb=adb8d6067cfe7d29f2d1bd57e90a21a07c25c2e8;p=perl%2Fscripts%2Fxchat.git

diff --git a/tools.pl b/tools.pl
index bf6af18..f7e5c4e 100755
--- a/tools.pl
+++ b/tools.pl
@@ -4,12 +4,13 @@ use strict;
 use warnings;
 
 use Data::Dumper;
-use Encode qw/encode/;
+use Encode qw<encode>;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
+use Xchat::XPI::Utils qw<save_context>;
 
 use constant MAX_MATCHES => 10;
 
@@ -23,12 +24,11 @@ BEGIN {
 }
 
 hook_command 'TC', sub {
- my $oldctxt = get_context;
+ my $guard = save_context;
  for (get_list 'channels') {
   set_context $_->{context};
   command 'GUI COLOR 0';
  }
- set_context $oldctxt;
  return EAT_ALL;
 }, {
  help_text => 'TC, reset all tab color indicators'
@@ -140,11 +140,13 @@ hook_command 'HGREP', sub {
  help_text => 'HGREP <text>, print users in the current context whose hostname matches text'
 };
 
-$ph = new Xchat::XPI name   => 'Misc tools',
-                     tag    => 'Tools',
-                     desc   => 'Perl interpretor, URI escaper',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Misc tools',
+ tag    => 'Tools',
+ desc   => 'Perl interpretor, URI escaper',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;