X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bin%2Fdebbugs-loadsql;h=7eec783ac10479c7b1e80e1e0149134d24964d49;hb=f47d8d71f004f4e293880b4bda885daaace0de64;hp=b1140794d08177390d60882b2527b2a1ec7a3e8f;hpb=d7652d4cfb86f72108c20eba8fbefaf2c1f4c855;p=debbugs.git

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;