dpkg-scansources: Fix perl uninitialized value usage on missing Binary field

debian/changelog

@@ -37,6 +37,8 @@ dpkg (1.18.0) UNRELEASED; urgency=low
   * Use TMPDIR instead of manually setting DIR on tempfile() call in
     Dpkg::Source::Package::V2.
   * Document Dpkg::IPC function signatures.
+  * Fix perl uninitialized value usage in dpkg-scansources when the Binary
+    field is missing.
 
  -- Guillem Jover <guillem@debian.org>  Tue, 09 Dec 2014 23:53:18 +0100
 

scripts/dpkg-scansources.pl

@@ -238,7 +238,7 @@ sub process_dsc {
     $checksums->add_from_control($fields, use_files_for_md5 => 1);
 
     my $source = $fields->{Source};
-    my @binary = split /\s*,\s*/, $fields->{Binary};
+    my @binary = split /\s*,\s*/, $fields->{Binary} // '';
 
     error(g_('no binary packages specified in %s'), $file) unless (@binary);