From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 11 Aug 2016 18:48:46 +0000 (-0700)
Subject: allow debinfo to be null separated
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=f47d8d71f004f4e293880b4bda885daaace0de64

allow debinfo to be null separated
---

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index b114079..7eec783 100755
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -142,6 +142,7 @@ my %subcommands =
      'versions' => {function => \&add_versions,
                    },
      'debinfo' => {function => \&add_debinfo,
+                   arguments => {'0|null' => 0},
                   },
      'maintainers' => {function => \&add_maintainers,
                       },
@@ -302,6 +303,16 @@ sub add_debinfo {
     my ($options,$opts,$p,$config,$argv) = @_;
 
     my @files = @{$argv};
+    if (not @files) {
+       {
+           if ($opts->{0}) {
+               local $/ = "\0";
+           }
+           while (<STDIN>) {
+               push @files, $_;
+           }
+       }
+    }
     return unless @files;
     my $s = db_connect($options);
     my %arch;