]> git.vpit.fr Git - perl/scripts/xchat.git/commitdiff
Switch to qw<>
authorVincent Pit <vince@profvince.com>
Sat, 10 Mar 2012 10:38:09 +0000 (11:38 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 10 Mar 2012 10:38:09 +0000 (11:38 +0100)
Xchat/XPI.pm
Xchat/XPI/Events.pm
Xchat/XPI/Net.pm
Xchat/XPI/Utils.pm
clones.pl
hl.pl
mpd.pl
net.pl
opers.pl
services.pl
tools.pl

index 7481f5c0ac88c395510243a5a5758e5f39fcea70..ff98ec762b9150f59e1ed50a680eded1469113d5 100644 (file)
@@ -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} }
index 2c753e151e41e9db7b3ada44a97e78300fd10408..f387f8ae7e6bc6915caeeda9cf4ea70b1180cc44 100644 (file)
@@ -3,7 +3,7 @@ package Xchat::XPI::Events;
 use strict;
 use warnings;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
@@ -42,12 +42,12 @@ sub filter {
  return hook_print $from, \&_filter_cb, { data => \@_ };
 }
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'funcs'  => [ qw/delay filter/ ],
- 'consts' => [ qw/DEFAULT_DELAY/ ]
+ 'funcs'  => [ qw<delay filter> ],
+ 'consts' => [ qw<DEFAULT_DELAY> ]
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
index a7b267927059493c6d1060381db1f9a28071bc5c..9cb99379a4d76a99e97f2d7b9745a4288daa089b 100644 (file)
@@ -7,10 +7,10 @@ use IO::Socket::INET;
 
 use Net::DNS;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
-use Xchat::XPI qw/register init/;
+use Xchat::XPI qw<register init>;
 
 our $VERSION = '0.03';
 
@@ -110,10 +110,10 @@ sub _whois_recv {
  return REMOVE;
 }
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
-our %EXPORT_TAGS    = ('funcs' => [ qw/resolve whois/ ]);
+our %EXPORT_TAGS    = ('funcs' => [ qw<resolve whois> ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
 
index 6fa15c1e4524ea9f6f0c94d56f5d08bb8e28d90f..8df6c0e61465ecbc1a271abc37669161b5be2fa2 100644 (file)
@@ -3,10 +3,10 @@ package Xchat::XPI::Utils;
 use strict;
 use warnings;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
-use Xchat::XPI qw/register init/;
+use Xchat::XPI qw<register init>;
  
 our $VERSION = '0.02';
 
@@ -20,10 +20,10 @@ sub dye_nick {
  return sprintf "\003%d%s", $rcolors[$col], $nick;
 }
 
-use base qw/Exporter/
+use base qw<Exporter>
  
 our @EXPORT         = ();
-our %EXPORT_TAGS    = ('funcs' => [ qw/dye_nick/ ]);
+our %EXPORT_TAGS    = ('funcs' => [ qw<dye_nick> ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
  
index d47b0279475c41539c6d51b45c22ac728aa4ddd5..72e1092fc834fb58a09267552976f453fa4fe199 100755 (executable)
--- a/clones.pl
+++ b/clones.pl
@@ -3,13 +3,13 @@ package Xchat::VPIT::Clones;
 use strict;
 use warnings;
 
-use Scalar::Util qw/dualvar/;
+use Scalar::Util qw<dualvar>;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
-use Xchat::XPI::Events qw/delay/;
+use Xchat::XPI::Events qw<delay>;
 
 use constant {
  JOIN_DELAY => 1000,
diff --git a/hl.pl b/hl.pl
index 5b67967ec415e0b07257c06280ca3b209e6bec09..7d1278b2d096ec9c95c20620e834b9cdbc0c4a1e 100755 (executable)
--- a/hl.pl
+++ b/hl.pl
@@ -3,11 +3,11 @@ package Xchat::VPIT::Highlight;
 use strict;
 use warnings;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
-use Xchat::XPI::Events qw/filter/;
+use Xchat::XPI::Events qw<filter>;
 
 our $VERSION = '0.04';
 
@@ -25,7 +25,7 @@ sub guiclear {
 hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
 
 my %hl = (
- '#cpantesters' => [ qw/
+ '#cpantesters' => [ qw<
     Acme-CPANAuthors-You-re_using
     B-RecDeparse
     Bit-MorseSignals
@@ -48,7 +48,7 @@ my %hl = (
     rgit-
     subs-auto
     \bwith-
-  / ],
+  > ],
 );
 
 for (keys %hl) {
diff --git a/mpd.pl b/mpd.pl
index ca732888f329a3a807dd3b2485e6b5c77fd68be2..4877b52349791f1f8432a228380958cef2044474 100755 (executable)
--- a/mpd.pl
+++ b/mpd.pl
@@ -5,7 +5,7 @@ use warnings;
 
 use Audio::MPD;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir'; 
 use Xchat::XPI;
@@ -50,7 +50,7 @@ hook_command $_, sub {
  return EAT_ALL;
 }, {
  help_text => "$_, output which song is currently played by mpd"
-} for qw/MPD NP/;
+} for qw<MPD NP>;
 
 $ph = Xchat::XPI->new(
  name   => 'MPD Client',
diff --git a/net.pl b/net.pl
index bcb9002814e1979e5acbc7fa7888b3980065afa3..3dbf3f8681f7a7975dc469c6501c60e1ae255d9b 100755 (executable)
--- a/net.pl
+++ b/net.pl
@@ -3,14 +3,14 @@ package Xchat::VPIT::Net;
 use strict;
 use warnings;
 
-use List::Util      qw/max/;
-use Locale::Country qw/code2country/;
+use List::Util      qw<max>;
+use Locale::Country qw<code2country>;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
-use Xchat::XPI::Net qw/resolve whois/;
+use Xchat::XPI::Net qw<resolve whois>;
 
 our $VERSION = '0.02';
 
index 6beaf93aaa87a877f61339b79f03bf55b2160fb5..988a22a7688c3931215ca4cadff123faf57638d1 100755 (executable)
--- a/opers.pl
+++ b/opers.pl
@@ -3,7 +3,7 @@ package Xchat::VPIT::Opers;
 use strict;
 use warnings;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
index 8fd3b9065d256cc4baefbafdcb0f658020c2bb33..f04a80efb8132998cb062e3a435ec5988c18273a 100755 (executable)
@@ -3,7 +3,7 @@ package Xchat::VPIT::Services;
 use strict;
 use warnings;
 
-use Xchat qw/:all/;
+use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
 use Xchat::XPI;
@@ -92,7 +92,7 @@ hook_command "C$_", \&csmode, {
  data => $_,
  help_text => join ' ', $_, '[nicks] ,', (lc $_),
     'the specified targets (or you if none) on the current channel via ChanServ'
-} for map { $_, "DE$_" } qw/VOICE HALFOP OP PROTECT/;
+} for map { $_, "DE$_" } qw<VOICE HALFOP OP PROTECT>;
 
 $ph = Xchat::XPI->new(
  name   => 'IRC Services',
index b554d4a7fc16ab636beb86b5563e76b1caac0017..b06f166d614b31cb12d53410dc245cb41e790a85 100755 (executable)
--- a/tools.pl
+++ b/tools.pl
@@ -4,9 +4,9 @@ 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;