No trailing whitespace

diff --git a/Xchat/XPI/Utils.pm b/Xchat/XPI/Utils.pm
index 1333adc91a229c8f78013a401c7de93b39d7a76f..82699db9ca405de9aa5b76e71e7b98ccc655524a 100644 (file)
--- 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 7d1278b2d096ec9c95c20620e834b9cdbc0c4a1e..7e76ba2c6cfb0e654a0a4aff635c8fca84e9e6d3 100755 (executable)
--- 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 4877b52349791f1f8432a228380958cef2044474..295bae4f9ceba76f2552ba8acecf34a6064d3135 100755 (executable)
--- 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 3dbf3f8681f7a7975dc469c6501c60e1ae255d9b..13d73eda0b32fe70f5f2f8fc36526f4fb41b0854 100755 (executable)
--- 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'