From: Vincent Pit <vince@profvince.com>
Date: Sun, 29 Apr 2012 14:57:56 +0000 (+0200)
Subject: No trailing whitespace
X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=commitdiff_plain;h=bc7fad34cd01ea436368b5e099cede0aa17abab6

No trailing whitespace
---

diff --git a/Xchat/XPI/Utils.pm b/Xchat/XPI/Utils.pm
index 1333adc..82699db 100644
--- a/Xchat/XPI/Utils.pm
+++ b/Xchat/XPI/Utils.pm
@@ -23,11 +23,11 @@ sub dye_nick {
  return sprintf "\003%d%s", $rcolors[$col % @rcolors], $nick;
 }
 
-use base qw<Exporter>; 
- 
+use base qw<Exporter>;
+
 our @EXPORT         = ();
 our %EXPORT_TAGS    = ('funcs' => [ qw<dye_nick> ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
- 
+
 1;
diff --git a/hl.pl b/hl.pl
index 7d1278b..7e76ba2 100755
--- a/hl.pl
+++ b/hl.pl
@@ -95,6 +95,6 @@ $ph = Xchat::XPI->new(
  email  => 'perl@profvince.com',
  url    => 'http://www.profvince.com',
 );
- 
+
 1;
 
diff --git a/mpd.pl b/mpd.pl
index 4877b52..295bae4 100755
--- a/mpd.pl
+++ b/mpd.pl
@@ -7,7 +7,7 @@ use Audio::MPD;
 
 use Xchat qw<:all>;
 
-use lib get_info 'xchatdir'; 
+use lib get_info 'xchatdir';
 use Xchat::XPI;
 
 our $VERSION = 0.04;
diff --git a/net.pl b/net.pl
index 3dbf3f8..13d73ed 100755
--- a/net.pl
+++ b/net.pl
@@ -69,7 +69,7 @@ sub dig_print {
   } else {
    output '*', 'Resolution failed for ' . $req->{host},
           map {
-           $_->mname . ' IN SOA ' . $_->rname . "\n", 
+           $_->mname . ' IN SOA ' . $_->rname . "\n",
            join ' ', 'serial:' . $_->serial, 'ref:' . $_->refresh,
                      'ret:' . $_->retry, 'exp:' . $_->expire,
                      'min:' . $_->minimum . "\n";
@@ -90,8 +90,8 @@ hook_command 'NETWHOIS', sub {
   my $info = user_info $_;
   my $req = parse_url($info ? $info->{host} : $_);
   whois $req->{host}, \&netwhois_print, [ $context, $req ];
- } 
- return EAT_ALL; 
+ }
+ return EAT_ALL;
 }, {
  help_text => 'NETWHOIS <ip(s)/hostname(s)>, retrieve domain/ip information'
 };
@@ -126,7 +126,7 @@ hook_command 'TLD', sub {
   next unless $tld;
   my $name = code2country $tld;
   print $ph $tld . ' is ' . ($name ? $name : 'unknown') . "\n";
- }  
+ }
  return EAT_ALL;
 }, {
  help_text => 'TLD <hostname(s)>, give the TLD text representation of the hosts'