Subject: [PATCH] Generate file-info files for source packages too

From: Raphael Geissert <[email-masked]>
Date: Mon, 2 Feb 2009 21:16:14 -0600

---
 collection/file-info      |    2 +-
 collection/file-info.desc |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/collection/file-info b/collection/file-info
index 59702bd..dfa6b4c 100755
--- a/collection/file-info
+++ b/collection/file-info
@@ -30,7 +30,7 @@ use Lintian::Command qw(spawn reap);
 my $pkg = shift;
 my $type = shift;
 
--f "fields/package" or fail("file-info invoked in wrong directory");
+-f "fields/source" or fail("file-info invoked in wrong directory");
 
 unlink("file-info");
 chdir("unpacked")
diff --git a/collection/file-info.desc b/collection/file-info.desc
index 0ac06a9..cbe68e6 100644
--- a/collection/file-info.desc
+++ b/collection/file-info.desc
@@ -1,7 +1,7 @@
 Collector-Script: file-info
 Author: Richard Braakman <[email-masked]>
-Info: This script runs the "file" command over all files of a binary package.
-Type: binary, udeb
+Info: This script runs the "file" command over all files of any kind of package.
+Type: binary, udeb, source
 Unpack-Level: 2
 Output: file-info
 Order: 1