Changeset 7869e48 for perl/modules/Jabber/inc/Module

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/Jabber/inc/Module/Install

Files:

• Fetch.pm (modified) (2 diffs)
• Makefile.pm (modified) (3 diffs)
• Metadata.pm (modified) (1 diff)
• Win32.pm (modified) (1 diff)

perl/modules/Jabber/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/Jabber/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}, @_),
     );
@@ -156 +156 @@
     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/Jabber/inc/Module/Install/Metadata.pm

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

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

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