From 2fc7f4f9df2771b5650ecfd93d0acd9a146a5e72 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 22 Aug 2013 09:05:54 +0100
Subject: more fixes for error handling, @cmds

---
 dgit | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'dgit')

diff --git a/dgit b/dgit
index 1c1e6e6..a67cc7d 100755
--- a/dgit
+++ b/dgit
@@ -281,7 +281,7 @@ sub parsecontrol {
 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;
@@ -329,12 +329,12 @@ sub archive_query_sshdakls ($$) {
 sub canonicalise_suite_sshdakls ($$) {
     my ($proto,$data) = @_;
     $data =~ m/:/ or badcfg "invalid sshdakls method string \`$data'";
-    my @cmd = 
-	access_cfg('ssh'), $`,
-	"set -e; cd $';".
-	" if test -h $isuite; then readlink $isuite; exit 0; fi;".
-	" if test -d $isuite; then echo $isuite; exit 0; fi;".
-	" exit 1";
+    my @cmd =
+	(access_cfg('ssh'), $`,
+	 "set -e; cd $';".
+	 " if test -h $isuite; then readlink $isuite; exit 0; fi;".
+	 " if test -d $isuite; then echo $isuite; exit 0; fi;".
+	 " exit 1");
     my $dakls = cmdoutput @cmd;
     failedcmd @cmd unless $dakls =~ m/^\w/;
     return $dakls;
-- 
cgit v1.2.3