fix off by one bug in rpws

1 files changed, 1 insertions, 1 deletions

diff --git a/contrib/rpws b/contrib/rpws
index 361e3d7..089e0a2 100755
--- a/contrib/rpws
+++ b/contrib/rpws
@@ -60,7 +60,7 @@ sub ws_init
     rp_call( "only" );
 
     my $i;
-    for( my $i = 1; $i < $num; $i++ )
+    for my $i (1..$num)
     {
         ws_init_ws( $i );
     }