From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Thu, 4 Aug 2011 01:10:19 +0000 (+1200)
Subject: Fixing a little style edit, so Perl::Critic won't complain
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=6991bae259221dcee036cc57444740669d3afa78;p=koha.git

Fixing a little style edit, so Perl::Critic won't complain
---

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 {