parsechangelog takes optional args for dpkg-parsechangelog

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 9768fe9309870d26e36ebc3fdd2e6f0dbf939974..123c2d513ae2cc05f3f3dd82a90c06a3b64202bd 100755 (executable)
--- 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;