Updates from work

[clearscm.git] / lib / Utils.pm

diff --git a/lib/Utils.pm b/lib/Utils.pm
index f52fe4b..eddef3a 100644 (file)
--- a/lib/Utils.pm
+++ b/lib/Utils.pm
@@ -357,7 +357,7 @@ Returns:
   while () {
     my $key;
 
-   while (not defined ($key = ReadKey -1)) { }
+    while (not defined ($key = ReadKey -1)) { }
 
     if ($key =~ /(\r|\n)/) {
        print "\n";
@@ -578,7 +578,7 @@ Returns:
 
 =cut
 
-  open my $pipe, '|', $to 
+  open my $pipe, '|-', $to
     or error "Unable to open pipe - $!", 1;
 
   foreach (@output) {