Tcl Library Source Code

Artifact [0369106547]
Login
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA

Artifact 0369106547293616e1e9da59c7ecfee49a64af49:

Attachment "picoirc_fix_msg.patch" to ticket [6e46b310f3] added by anonymous 2015-09-06 19:44:04. (unpublished)Also attachment "picoirc_fix_msg.patch" to ticket [3304371fff] added by anonymous 2015-09-06 19:42:59. (unpublished)
--- picoirc.tcl.orig	2015-09-06 21:15:36.082980736 +0200
+++ picoirc.tcl	2015-09-06 21:15:47.182472503 +0200
@@ -244,7 +244,7 @@
             version {send $context "PRIVMSG $first :\001VERSION\001"}
  	    msg {
  		if {[regexp {([^ ]+) +(.*)} $msg -> target querymsg]} {
- 		    send $context "PRIVMSG $target :$msg"
+ 		    send $context "PRIVMSG $target :$querymsg"
  		    Callback $context chat $target $target $querymsg ""
  		}
  	    }