Fix bug that never surfaced.
This commit is contained in:
parent
9b286fe420
commit
b28065c231
1 changed files with 1 additions and 0 deletions
1
WOPO.COB
1
WOPO.COB
|
@ -220,6 +220,7 @@
|
||||||
GET-IRC-STATE.
|
GET-IRC-STATE.
|
||||||
CALL "PARSE-IRC-MSG" USING MSG-BODY OF INPUT-BUFFER,
|
CALL "PARSE-IRC-MSG" USING MSG-BODY OF INPUT-BUFFER,
|
||||||
IRC-PARAMS.
|
IRC-PARAMS.
|
||||||
|
MOVE SPACES TO NICK.
|
||||||
IF GOT-PREFIX THEN
|
IF GOT-PREFIX THEN
|
||||||
MOVE MSG-SRC TO PTR(1)
|
MOVE MSG-SRC TO PTR(1)
|
||||||
UNSTRING MSG-BODY OF INPUT-BUFFER
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
|
|
Loading…
Reference in a new issue