fix sh/log things to allow all search strings

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

diff --git a/cmd/show/talk.pl b/cmd/show/talk.pl
index 811719d7802399d6e8f9a667ddcb71abffed4bd3..6b3c4ea95a724957a2256a05ed7b70face4d1a27 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;
 }