Fixed default string for checking out all packages or thorns

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

1 files changed, 10 insertions, 2 deletions

diff --git a/lib/sbin/checkout.pl b/lib/sbin/checkout.pl
index be2e9aeb..dc045590 100644
--- a/lib/sbin/checkout.pl
+++ b/lib/sbin/checkout.pl
@@ -85,7 +85,11 @@ sub get_packages
     chdir packages || die "Could not find packages directory";
 
     $range = <STDIN>;
-    
+    if ($range =~ /^\s*$/)
+    {
+	$range = "1-$count";
+    }
+
     while ($range =~/^([0-9]+(?:-[0-9]+)?),?/)
     {
 	$range = $';
@@ -142,7 +146,11 @@ sub get_thorns
     chdir packages || die "Could not find packages directory\n";
 
     $range = <STDIN>;
-    
+    if ($range =~ /^\s*$/)
+    {
+	$range = "1-$count";
+    }
+
     while ($range =~/^([0-9]+(?:-[0-9]+)?),?/)
     {
 	$range = $';