Fixing a little style edit, so Perl::Critic won't complain
authorChris Cormack <chrisc@catalyst.net.nz>
Thu, 4 Aug 2011 01:10:19 +0000 (13:10 +1200)
committerChris Cormack <chrisc@catalyst.net.nz>
Thu, 4 Aug 2011 01:10:19 +0000 (13:10 +1200)
debian/build-git-snapshot

index 295b5fa..f34b667 100755 (executable)
@@ -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 {