From b890eb8b955edfa46acda6d7b4ff0ab7f15dcfab Mon Sep 17 00:00:00 2001
From: Shawn Betts <sabetts@gmail.com>
Date: Fri, 24 Apr 2009 10:16:39 -0700
Subject: in contrib/rpws don't create wspl1, since it already exist as the
 Default group.

Also add a check to ensure the workspaces creates are at least 2.
---
 contrib/rpws | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/contrib/rpws b/contrib/rpws
index 4408734..899166e 100755
--- a/contrib/rpws
+++ b/contrib/rpws
@@ -59,6 +59,8 @@ sub ws_init
 {
     my $num = shift;
 
+    $num >= 2 || die "You must create at least 2 workspaces.";
+
     # Backup the frames
     my $fd = fdump();
 
@@ -66,7 +68,7 @@ sub ws_init
     rp_call( "only" );
 
     my $i;
-    for my $i (1..$num)
+    for my $i (2..$num)
     {
         ws_init_ws( $i );
     }
-- 
cgit v1.2.3