# | Line 100 | Line 100 | proc kill_batch {} { # kill batch rendering | |
---|---|---|
100 | switch -glob [exec uname] { | |
101 | SunOS - | |
102 | ULTRIX {set ps "ps -lg"} | |
103 | < | default {set ps "ps -lu $env(USER)"} |
103 | > | default {set ps "ps -lu $env(LOGNAME)"} |
104 | } | |
105 | set fi [open "|$ps" r] | |
106 | gets $fi li |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |