parsechangelog takes optional args for dpkg-parsechangelog

1 files changed, 1 insertions, 1 deletions

diff --git a/dgit b/dgit
index 9768fe9..123c2d5 100755
--- a/dgit
+++ b/dgit
@@ -340,7 +340,7 @@ sub getfield ($$) {
 sub parsechangelog {
     my $c = Dpkg::Control::Hash->new();
     my $p = new IO::Handle;
-    my @cmd = (qw(dpkg-parsechangelog));
+    my @cmd = (qw(dpkg-parsechangelog), @_);
     open $p, '-|', @cmd or die $!;
     $c->parse($p);
     $?=0; $!=0; close $p or failedcmd @cmd;