lintian: r1396 - trunk/lib/Lintian/Collect

[djpig@debian.org]

Author: djpig
Date: 2008-06-19 01:40:36 +0200 (Thu, 19 Jun 2008)
New Revision: 1396

Modified:
   trunk/lib/Lintian/Collect/Binary.pm
Log:
* lib/Lintian/Collect/Binary.pm:
  + Add support for file-info file.


Modified: trunk/lib/Lintian/Collect/Binary.pm
===================================================================
--- trunk/lib/Lintian/Collect/Binary.pm	2008-06-18 23:35:57 UTC (rev 1395)
+++ trunk/lib/Lintian/Collect/Binary.pm	2008-06-18 23:40:36 UTC (rev 1396)
@@ -100,6 +100,32 @@
     return $self->{index};
 }
 
+# Returns the information from collect/file-info
+sub file_info {
+    my ($self) = @_;
+    return $self->{file_info} if exists $self->{file_info};
+
+    my %file_info;
+    open(my $idx, '<', "file-info")
+        or fail("cannot open file-info: $!");
+    while (<$idx>) {
+        chomp;
+
+        m/^(.+?):\s+(.*)$/o
+            or fail("an error in the file pkg is preventing lintian from checking this package: $_");
+        my ($file, $info) = ($1,$2);
+
+        $file =~ s,^./,,o;
+        $file =~ s,/+$,,o;
+
+        $file_info{$file} = $info;
+    }
+    close $idx;
+    $self->{file_info} = \%file_info;
+
+    return $self->{file_info};
+}
+
 =head1 NAME
 
 Lintian::Collect::Binary - Lintian interface to binary package data collection