chiark / gitweb /
get suppression of pings to lputs right
authorian <ian>
Mon, 14 Jul 2008 22:19:33 +0000 (22:19 +0000)
committerian <ian>
Mon, 14 Jul 2008 22:19:33 +0000 (22:19 +0000)
hostside/multiplex

index a15dcda3d05503b5ac1d1e049146bab7c1847a0f..c36c2f7956d5c09b6678cbebd697a18a475bb303 100755 (executable)
@@ -85,7 +85,7 @@ proc cmderr {ecode emsg} { error $emsg "" [list TRAIN CMDERR $ecode] }
 
 proc lputs {m} {
     if {[regexp \
- {^\<[<&] picioh (?:in msg|out) 8[09a-f]|^\<[<&] picio (?:in pong|out ping)} \
+ {^\<[<&] picioh (?:in msg|out) 8[89a-f]|^\<[<&] picio (?:in pong|out ping)} \
             $m]} \
        return
     puts $m