summaryrefslogtreecommitdiff
path: root/lang
diff options
context:
space:
mode:
Diffstat (limited to 'lang')
-rw-r--r--lang/expect/Makefile1
-rw-r--r--lang/expect/files/patch-exp_main_sub.c42
2 files changed, 43 insertions, 0 deletions
diff --git a/lang/expect/Makefile b/lang/expect/Makefile
index 0351355b5fee..c2a75c5d9be8 100644
--- a/lang/expect/Makefile
+++ b/lang/expect/Makefile
@@ -6,6 +6,7 @@
PORTNAME= expect
PORTVERSION= 5.38.0
+PORTREVISION= 1
CATEGORIES= lang tcl83 tk83
MASTER_SITES= http://expect.nist.gov/src/
diff --git a/lang/expect/files/patch-exp_main_sub.c b/lang/expect/files/patch-exp_main_sub.c
new file mode 100644
index 000000000000..c3cf7aadbe9e
--- /dev/null
+++ b/lang/expect/files/patch-exp_main_sub.c
@@ -0,0 +1,42 @@
+
+$FreeBSD$
+
+--- exp_main_sub.c 2002/08/24 08:04:43 1.1
++++ exp_main_sub.c 2002/08/24 08:15:33
+@@ -593,6 +593,9 @@
+ char *args; /* ptr to string-rep of all args */
+ char *debug_init;
+
++ char *native;
++ Tcl_DString ds;
++
+ exp_argv0 = argv[0];
+
+ #ifdef TCL_DEBUGGER
+@@ -768,18 +771,23 @@
+ expDiagLog("set argc %s\r\n",argc_rep);
+
+ if (exp_cmdfilename) {
+- Tcl_SetVar(interp,"argv0",exp_cmdfilename,0);
++ native = Tcl_ExternalToUtfDString(NULL, exp_cmdfilename, -1, &ds);
++ Tcl_SetVar(interp,"argv0",native,0);
+ expDiagLog("set argv0 \"%s\"\r\n",exp_cmdfilename);
+ } else {
+- Tcl_SetVar(interp,"argv0",exp_argv0,0);
++ native = Tcl_ExternalToUtfDString(NULL, exp_argv0, -1, &ds);
++ Tcl_SetVar(interp,"argv0",native,0);
+ expDiagLog("set argv0 \"%s\"\r\n",exp_argv0);
+ }
++ Tcl_DStringFree(&ds);
+
+ args = Tcl_Merge(argc-optind,argv+optind);
+ expDiagLogU("set argv \"");
+ expDiagLogU(args);
+ expDiagLogU("\"\r\n");
+- Tcl_SetVar(interp,"argv",args,0);
++ native = Tcl_ExternalToUtfDString(NULL, args, -1, &ds);
++ Tcl_SetVar(interp,"argv",native,0);
++ Tcl_DStringFree(&ds);
+ Tcl_Free(args);
+
+ exp_interpret_rcfiles(interp,my_rc,sys_rc);