[SCM] Debian package checker branch, master, updated. 2.1.4-9-g53ac0ac

["Russ Allbery" <rra@debian.org>]

The following commit has been merged in the master branch:
commit 53ac0acc9f502ef7408e46587843f82900c20e4b
Author: Russ Allbery <rra@debian.org>
Date:   Sat Jan 10 18:48:06 2009 -0800

    Fix Perl warnings from bad binary control files
    
    * lib/Lintian/Schedule.pm:
      + [RA] Fix Perl warnings triggered by missing fields in the control
        file of a binary package.

diff --git a/debian/changelog b/debian/changelog
index 65a7105..71fe543 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -36,6 +36,9 @@ lintian (2.1.5) UNRELEASED; urgency=low
 
   * lib/Lintian/Check.pm:
     + [RA] New module for checks run from multiple places.
+  * lib/Lintian/Schedule.pm:
+    + [RA] Fix Perl warnings triggered by missing fields in the control
+      file of a binary package.
 
   * man/lintian.1:
     + [RA] Document new deb-format check script.
diff --git a/lib/Lintian/Schedule.pm b/lib/Lintian/Schedule.pm
index b4ed82c..3fe5899 100644
--- a/lib/Lintian/Schedule.pm
+++ b/lib/Lintian/Schedule.pm
@@ -40,15 +40,17 @@ sub new {
 sub add_file {
     my ($self, $type, $file, %pkg_info) = @_;
 
-    my ($pkg, $ver, $arch) = ("", "", "");
+    my ($pkg, $ver, $arch);
     if ($type eq 's') {
 	($pkg, $ver, $arch) =
 	    (@pkg_info{qw(source version)}, 'source');
     } else {
 	($pkg, $ver, $arch) =
 	    @pkg_info{qw(package version architecture)};
-	$arch ||= "";
     }
+    $pkg  ||= '';
+    $ver  ||= '';
+    $arch ||= '';
 
     my $s = "$type $pkg $ver $arch $file";
     my %h = ( type => $type, package => $pkg, version => $ver,

-- 
Debian package checker