Tcl Source Code

Artifact 696f2bfd72d53d2afedf80af1eb35efa427f3e89:

Attachment "crash-219314.tcl" to ticket [219314ffff] added by hobbs 2001-10-15 01:52:21.

---

#!/usr/local/bin/tclsh8.4
puts stdout "Here is a crash script."
puts stdout "I've tested under tclsh8.4a3."
# ---
encoding system iso2022-jp
fconfigure stdin -encoding iso2022-jp
fconfigure stdout -encoding iso2022-jp
# ---
puts "Here! Crash Now!!"
set a {$B$"$$$&$($*(B}