Add some full stops.

[ircbot] / irccore.tcl

diff --git a/irccore.tcl b/irccore.tcl
index 3ff0bd1..1ff6840 100644 (file)
--- a/irccore.tcl
+++ b/irccore.tcl
@@ -163,10 +163,10 @@ proc bgerror {msg} {
 }
 
 proc onread {args} {
-    global sock nick calling_nick errorInfo errorCode line_org_1char
+    global sock nick calling_nick errorInfo errorCode line_org_endchar
 
     if {[gets $sock line] == -1} { fail "EOF/error on input" }
-    set line_org_1char [string range $line 0 0]
+    set line_org_endchar [string range $line end end]
     regsub -all "\[^ -\176\240-\376\]" $line ? line
     set org $line