Changeset 4454 for trunk/base

Timestamp:

Jan 5, 2004, 2:53:17 AM (20 years ago)

Author:

jkh

Message:

Fix weirdness in options_proc where a local shadowed a global. This fixes
the ldelete call in the variant of the new port of ethereal.

File:

• trunk/base/src/port1.0/portutil.tcl (modified) (1 diff)

trunk/base/src/port1.0/portutil.tcl

@@ -168 +168 @@
 
 proc option_proc {option args} {
-    global option_procs $option
+    global option_procs
     eval "lappend option_procs($option) $args"
     # Add a read trace to the variable, as the option procedures have no access to reads