[RP] rpws bug (extra group)

[Kevin Geiss]

just wanted to let you know that the rpws which ships with ratpoison-1.4.0 
ends up creating an extra, unusable group. the fix is so simple I'm just 
gonna paste the diff:

62,63c62
<     my $i;
<     for( my $i = 0; $i < $num; $i++ )
---
>     for( my $i = 1; $i <= $num; $i++ )

to test this, set up rpws, then list all the ratpoison groups, you'll see what 
I mean.

hope this hasn't already been spotted.

I noticed because I have a dirty little script which lists all windows in all 
groups:

#!/usr/bin/perl -w

$rp = 'ratpoison';

@groups = `$rp -c groups`;
chomp @groups;
$curgroup = ( grep( /^\d+\*.*/, @groups ) )[0];
$curgroup =~ m/^(\d+)(?:-|\*).*/;
$curgroup = $1;

foreach $group (@groups)
{
  $group =~ m/^(\d+)(?:-|\*).*/;
  $num = $1;
  system( "$rp -c 'gselect $num'" );
  @windows = `$rp -c windows`;
  print $group, "\n";
  foreach $win (@windows)
  {
    print "\t$win";
  }
}
system( "$rp -c 'gselect $curgroup'" );