Improve M$ Windows compatibility

[spider.git] / cmd / show / groups.pl

diff --git a/cmd/show/groups.pl b/cmd/show/groups.pl
index 85e3fe2b0057dc6853e1297e4127c141c60774e6..aaa9d4cf334ac640d8f423abc860f86d080b48df 100644 (file)
--- a/cmd/show/groups.pl
+++ b/cmd/show/groups.pl
@@ -20,7 +20,7 @@ sub handle
        }
        $to = 500 unless $to;
 
-       if ($self->{_nospawn}) {
+       if ($self->{_nospawn} || $main::is_win == 1) {
                return (1, doit($self, DXLog::print(undef, $to, $main::systime, 'chat', undef)));
        }
        return (1, $self->spawn_cmd("show/groups $to", \&DXLog::print, args => [0, $to, $main::systime, 'chat', undef], cb => \&doit));