Don't print all the filenames during checkout

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1207 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/sbin/checkout.pl b/lib/sbin/checkout.pl
index 25e7111c..04a29bc2 100644
--- a/lib/sbin/checkout.pl
+++ b/lib/sbin/checkout.pl
@@ -210,6 +210,8 @@ sub get_thorns
     chdir arrangements || die "Could not find arrangements directory\n";
 
     $range = <STDIN>;
+    print "\n";
+
     if ($range =~ /^h/i)
     {
 	&print_help();
@@ -395,7 +397,11 @@ sub CheckOut
   my($file,$repository) = @_;
 
   print("Checking out $file\n");
-  system("cvs -z9 -q -d $repository checkout $file");
+
+  open(MODULES,"cvs -z9 -q -d $repository checkout $file |");
+  @dummy = <MODULES>;
+  close(MODULES);
+
 }