Improve M$ Windows compatibility

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

diff --git a/cmd/show/talk.pl b/cmd/show/talk.pl
index 811719d7802399d6e8f9a667ddcb71abffed4bd3..4adeb7261355b3411c40f677b7ec14feed5c8aa0 100644 (file)
--- a/cmd/show/talk.pl
+++ b/cmd/show/talk.pl
@@ -25,6 +25,9 @@ while ($f = shift @f) {                 # next field
                next if $to;
        }
        next if $who;
+       if ($f !~ /^\d+/) {
+               ($who) = $f;
+       }
 #      ($who) = $f =~ /^(\w+)/o;
 }
 
@@ -35,5 +38,5 @@ if ($self->priv < 6) {
        return (1, $self->msg('e5')) if $who ne $self->call;
 }
 
-return (1, DXLog::print($from, $to, $main::systime, 'talk', $who)) if $self->{_nospawn};
+return (1, DXLog::print($from, $to, $main::systime, 'talk', $who)) if ($self->{_nospawn} || $main::is_win == 1);
 return (1, $self->spawn_cmd("show/talk $cmdline", \&DXLog::print, args => [$from, $to, $main::systime, 'talk', $who]));