#286 adp options are ignored by adpcmds.c

[Jonathan Ellis]

One symptom is a ton of "missing close brace" errors when singlescript is enabled.

This fix works for me:

--- adpcmds.c~ 2006-06-25 20:28:02.000000000 -0400
+++ adpcmds.c 2009-10-10 14:21:01.000000000 -0400
@@ -436,7 +436,8 @@
"arg ?arg ...?");
return TCL_ERROR;
}
- isfile = flags = 0;
+ isfile = 0;
+ flags = itPtr->adp.flags;
for (i = 1; i < objc; ++i) {
opt = Tcl_GetString(objv[i]);
if (STREQ(opt, "-global")) {