projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed console to wrap.
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index bf747b8631b5de32424eebd7dc3b39ef0abd5b8f..75632aa8d35726fbf44094b3f526733926ae98fb 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-195,9
+195,9
@@
sub rec_socket
if (defined $msg) {
my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
if (defined $msg) {
my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
- if ($sort eq 'D') {
+ if ($sort
&& $sort
eq 'D') {
addtotop($line);
addtotop($line);
- } elsif ($sort eq 'Z') { # end, disconnect, go, away .....
+ } elsif ($sort
&& $sort
eq 'Z') { # end, disconnect, go, away .....
cease(0);
}
}
cease(0);
}
}