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

[koha.git] / debian / build-git-snapshot

diff --git a/debian/build-git-snapshot b/debian/build-git-snapshot
index 295b5fa..f34b667 100755 (executable)
--- 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 {