From 6991bae259221dcee036cc57444740669d3afa78 Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Thu, 4 Aug 2011 13:10:19 +1200
Subject: [PATCH] Fixing a little style edit, so Perl::Critic won't complain

---
 debian/build-git-snapshot | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/debian/build-git-snapshot b/debian/build-git-snapshot
index 295b5faa11..f34b6675a0 100755
--- a/debian/build-git-snapshot
+++ b/debian/build-git-snapshot
@@ -52,9 +52,10 @@ sub sys_command_output {
     my ($command) = @_;
 
     print "$command\n" if $debug;
-    open COMMAND, "$command |"
+    my $command_output;
+    open($command_output, "$command"," |")
       or die qq{Cannot execute "$command": $!"};
-    return map { chomp; $_ } <COMMAND>;
+    return map { chomp; $_ } <$command_output>;
 }
 
 sub everything_is_committed {
-- 
2.20.1