[svn:parrot] r39164 - in branches/better_install_tools: lib/Parrot lib/Parrot/Docs/Section tools/dev

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Mon May 25 00:47:41 2009
New Revision: 39164
URL: https://trac.parrot.org/parrot/changeset/39164

Log:
Per coding standards: fix hard tabs, absence of copyright, trailing whitespace.

Modified:
   branches/better_install_tools/lib/Parrot/Docs/Section/Developer.pm
   branches/better_install_tools/lib/Parrot/Install.pm
   branches/better_install_tools/tools/dev/install_files.pl

Modified: branches/better_install_tools/lib/Parrot/Docs/Section/Developer.pm
==============================================================================
--- branches/better_install_tools/lib/Parrot/Docs/Section/Developer.pm	Mon May 25 00:43:09 2009	(r39163)
+++ branches/better_install_tools/lib/Parrot/Docs/Section/Developer.pm	Mon May 25 00:47:41 2009	(r39164)
@@ -53,12 +53,12 @@
         ),
         $self->new_group( 'Development Notes',     '', 'docs/dev',
             $self->new_item( 'Documenting PMCs', 'docs/pmc/documentation.pod'),
-	),
+        ),
         $self->new_group( 'Articles',                      '', 'docs/user/pir',
             $self->new_item( 'Array base class', 'docs/pmc/array.pod'),
             $self->new_item( 'Accesing C Structs from Parrot', 'docs/pmc/struct.pod'),
             $self->new_item( 'Parrot Subroutines', 'docs/pmc/subs.pod'),
-	),
+        ),
     );
 }
 

Modified: branches/better_install_tools/lib/Parrot/Install.pm
==============================================================================
--- branches/better_install_tools/lib/Parrot/Install.pm	Mon May 25 00:43:09 2009	(r39163)
+++ branches/better_install_tools/lib/Parrot/Install.pm	Mon May 25 00:47:41 2009	(r39164)
@@ -1,4 +1,5 @@
 package Parrot::Install;
+# Copyright (C) 2001-2009, Parrot Foundation.
 # $Id$
 use strict;
 use warnings;
@@ -59,7 +60,7 @@
 =cut
 
 sub lines_to_files {
-    my ($metatransforms, $transformorder, $manifests_ref, 
+    my ($metatransforms, $transformorder, $manifests_ref,
         $options_ref, $parrotdir) = @_;
     my @files;
     my %directories;
@@ -130,7 +131,7 @@
                 ref($filehash) eq 'HASH' or die "Error: transform didn't return a hash for key '$tkey'\n";
                 $filehash->{Dest} = File::Spec->catdir(
                     $options_ref->{$thash->{optiondir} . 'dir'},
-                    @{ $filehash->{DestDirs} }, 
+                    @{ $filehash->{DestDirs} },
                     $filehash->{Dest}
                 );
                 last FIXFILE;
@@ -189,8 +190,8 @@
         $list_of_files_and_executables,
     );
 
-B<Arguments:>  Takes two scalar arguments, followed by a reference to a 
-list consisting of hashes.  
+B<Arguments:>  Takes two scalar arguments, followed by a reference to a
+list consisting of hashes.
 
 B<Return Value:>  True value.
 

Modified: branches/better_install_tools/tools/dev/install_files.pl
==============================================================================
--- branches/better_install_tools/tools/dev/install_files.pl	Mon May 25 00:43:09 2009	(r39163)
+++ branches/better_install_tools/tools/dev/install_files.pl	Mon May 25 00:47:41 2009	(r39164)
@@ -175,7 +175,7 @@
         transform => sub {
             my($filehash) = @_;
             # parrot with different config
-            $filehash->{Installable} = $filehash->{Dest} =~ s/^installable_//;     
+            $filehash->{Installable} = $filehash->{Dest} =~ s/^installable_//;
             return($filehash);
         },
         isbin => 1,