[SCM] Debian package checker branch, master, updated. 2.5.0-rc2-122-g12888e8

["Niels Thykier" <niels@thykier.net>]

The following commit has been merged in the master branch:
commit 325d73c9c020151bc1ad37354c3c69ffb4d5aa1e
Author: Niels Thykier <niels@thykier.net>
Date:   Tue Apr 12 09:02:38 2011 +0200

    Fixed name of collection/fields and did whitespace fixes

diff --git a/checks/symlinks b/checks/symlinks
index e3cb625..28aa390 100644
--- a/checks/symlinks
+++ b/checks/symlinks
@@ -82,7 +82,7 @@ return unless @brokenlinks;
 $relation = $info->relation('strong');
 foreach my $depproc ($group->get_processables($type)){
     if ($relation->implies($depproc->pkg_name())){
-	push @dindexes, $depproc->info->index;        
+	push @dindexes, $depproc->info->index;
     }
 }
 
diff --git a/collection/fields b/collection/fields
index d22e73f..9af5134 100755
--- a/collection/fields
+++ b/collection/fields
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# bin-pkg-control -- lintian collector script
+# fields -- lintian collector script
 
 # Copyright (C) 1998 Christian Schwarz
 #
@@ -35,9 +35,6 @@ if ($type eq 'changes'){
     $file = 'changes';
 } elsif ($type eq 'binary' or $type eq 'udeb'){
     $file = 'control/control';
-} else {
-
-
 }
 
 if (!defined($file)) {
@@ -61,7 +58,7 @@ if($type eq 'changes'){
     $data = (read_dpkg_control($file))[0];
     $data->{'source'} or ($data->{'source'} = $data->{'package'});
 }
-    
+
 # create control field files
 for my $field (keys %$data) {
     my $value = $data->{$field};
@@ -85,5 +82,5 @@ if($type eq 'binary' or $type eq 'udeb'){
             or fail("symlink: $!");
     }
 }
-    
+
 exit 0;
diff --git a/lib/Lab.pm b/lib/Lab.pm
index 6bba140..d9d3aea 100644
--- a/lib/Lab.pm
+++ b/lib/Lab.pm
@@ -31,7 +31,7 @@ our (@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
 BEGIN {
     @EXPORT = ();
-    %EXPORT_TAGS = ( 
+    %EXPORT_TAGS = (
         constants => [qw(LAB_FORMAT)],
         );
     @EXPORT_OK = (
@@ -79,7 +79,7 @@ sub setup {
     my ( $self, $dir, $dist ) = @_;
 
     if ( $dir ) {
-         # Make sure we can always find it, even if we chdir around a lot.
+        # Make sure we can always find it, even if we chdir around a lot.
         my $absdir = Cwd::realpath($dir);
         fail("Cannot determine the absolute path of $dir: $!") unless($absdir);
 	$self->{mode} = 'static';
@@ -259,7 +259,7 @@ sub delete_force {
 
 
 {
-    
+
     # private helper variable.
     my %pkg_types = (
         'b' => 'binary',
@@ -282,7 +282,7 @@ sub delete_force {
         $dir = $self->{dir} . '/' . $vpkg_type . '/' . $pkg_name;
         return new Lab::Package($self, $pkg_name, $pkg_version, $vpkg_type,
                                 $realpath, $dir);
-              
+
     }
 }
 
diff --git a/lib/Lab/Package.pm b/lib/Lab/Package.pm
index 2fa89c0..a580957 100644
--- a/lib/Lab/Package.pm
+++ b/lib/Lab/Package.pm
@@ -154,7 +154,7 @@ sub entry_exists(){
     my $pkg_type = $self->{pkg_type};
     my $base_dir = $self->{base_dir};
 
-    # If we have a positive unpack level, something exists 
+    # If we have a positive unpack level, something exists
     return 1 if ($self->{_unpack_level} > 0);
 
     # Check if the relevant symlink exists.
diff --git a/lib/Lintian/ProcessablePool.pm b/lib/Lintian/ProcessablePool.pm
index 4c32260..651851a 100644
--- a/lib/Lintian/ProcessablePool.pm
+++ b/lib/Lintian/ProcessablePool.pm
@@ -159,7 +159,7 @@ sub get_groups{
     my $groups = $self->{groups};
     if (scalar keys %$groups) {
         return values %$groups;
-    } 
+    }
     return ();
 }
 

-- 
Debian package checker