X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=Xchat%2FXPI.pm;fp=Xchat%2FXPI.pm;h=ff98ec762b9150f59e1ed50a680eded1469113d5;hp=7481f5c0ac88c395510243a5a5758e5f39fcea70;hb=9db5de0ec290fd8b82a9c510e0d627b31e44d9bd;hpb=80f827633d7173e4388bfce83f6bb304f37cecab

diff --git a/Xchat/XPI.pm b/Xchat/XPI.pm
index 7481f5c..ff98ec7 100644
--- a/Xchat/XPI.pm
+++ b/Xchat/XPI.pm
@@ -13,7 +13,7 @@ use constant { COLOR_TAG => "\00307" };
 
 my @attributes;
 BEGIN {
- @attributes = qw/tag name version desc author email url banner/;
+ @attributes = qw<tag name version desc author email url banner>;
 }
 
 local *PH;
@@ -52,7 +52,7 @@ sub new {
  *$ph->{$_}  = $opts{$_} for @attributes;
  *$ph->{buf} = '';
 
- Xchat::register(@opts{qw/name version banner/}, sub {
+ Xchat::register(@opts{qw<name version banner>}, sub {
   $ph->flush;
   if (*$ph->{atexit_id}) {
    my @callbacks = sort { *$ph->{atexit}{$b} <=> *$ph->{atexit}{$a} }