Changeset 7869e48 for perl/modules/IRC

Timestamp:

Jan 12, 2013, 1:43:13 PM (11 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

e3a0d71, 4485285

Parents:

4626016

git-author:

Jason Gross <jgross@mit.edu> (01/12/13 13:13:18)

git-committer:

Jason Gross <jgross@mit.edu> (01/12/13 13:43:13)

Message:

Remove trailing whitespace

This commit was made with the command sequence

    for i in $(git ls-files | tr '\n' ' ');
    do
      echo $i; sed -i s'/\s\+$//g' "$(readlink -f $i)";
    done

Location:

perl/modules/IRC

Files:

• inc/Module/Install/Fetch.pm (modified) (2 diffs)
• inc/Module/Install/Makefile.pm (modified) (3 diffs)
• inc/Module/Install/Metadata.pm (modified) (1 diff)
• inc/Module/Install/Win32.pm (modified) (1 diff)
• lib/BarnOwl/Module/IRC/Connection.pm (modified) (2 diffs)

perl/modules/IRC/inc/Module/Install/Fetch.pm

@@ -14 +14 @@
 sub get_file {
     my ($self, %args) = @_;
-    my ($scheme, $host, $path, $file) = 
+    my ($scheme, $host, $path, $file) =
         $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
 
@@ -20 +20 @@
         $args{url} = $args{ftp_url}
             or (warn("LWP support unavailable!\n"), return);
-        ($scheme, $host, $path, $file) = 
+        ($scheme, $host, $path, $file) =
             $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
     }

perl/modules/IRC/inc/Module/Install/Makefile.pm

@@ -65 +65 @@
         my $clean = $self->makemaker_args->{clean} ||= {};
         %$clean = (
-                %$clean, 
+                %$clean,
                 FILES => join(' ', grep length, $clean->{FILES}, @_),
         );
@@ -74 +74 @@
         my $realclean = $self->makemaker_args->{realclean} ||= {};
         %$realclean = (
-                %$realclean, 
+                %$realclean,
                 FILES => join(' ', grep length, $realclean->{FILES}, @_),
         );
@@ -181 +181 @@
         my $top_version   = $self->_top->VERSION || '';
 
-        my $preamble = $self->preamble 
+        my $preamble = $self->preamble
                 ? "# Preamble by $top_class $top_version\n"
                         . $self->preamble

perl/modules/IRC/inc/Module/Install/Metadata.pm

@@ -282 +282 @@
         $author =~ s{E<lt>}{<}g;
         $author =~ s{E<gt>}{>}g;
-        $self->author($author); 
+        $self->author($author);
     }
     else {

perl/modules/IRC/inc/Module/Install/Win32.pm

@@ -17 +17 @@
         $self->load('can_run');
         $self->load('get_file');
-        
+
         require Config;
         return unless (

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -412 +412 @@
         $self->{reconnect_timer}->stop;
     }
-    $self->{reconnect_timer} = 
+    $self->{reconnect_timer} =
         BarnOwl::Timer->new( {
             name  => 'IRC (' . $self->alias . ') reconnect_timer',
@@ -472 +472 @@
     $body =~ s/\cC\d+(?:,\d+)?//g;
     $body =~ s/\cO//g;
-    
+
     my @pieces = split /\cB/, $body;
     my $out = '';