[perl #28981] [PATCH src/exec_start.c] Fix Compilation Error

[via RT]

# New Ticket Created by  chromatic 
# Please include the string:  [perl #28981]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=28981 >


I played with making executables today (to no avail; it's having trouble
with load_bytecode ops, but that's a different issue).  Here's a patch
to src/exec_start.c to make it compile.

I think it's a bit naive, but it's no worse than some of the other
examples of string_make() in the code.

-- c



Index: src/exec_start.c
===================================================================
RCS file: /cvs/public/parrot/src/exec_start.c,v
retrieving revision 1.10
diff -u -u -r1.10 exec_start.c
--- src/exec_start.c	3 Mar 2004 10:13:00 -0000	1.10
+++ src/exec_start.c	20 Apr 2004 03:33:31 -0000
@@ -68,7 +68,7 @@
     for (i = 0; i < argc; i++) {
         /* Run through argv, adding everything to @ARGS. */
         STRING *arg = string_make(interpreter, argv[i], strlen(argv[i]),
-                                  0, PObj_external_FLAG, 0);
+                                  "iso-8859-1", PObj_external_FLAG);
 
         if (Interp_flags_TEST(interpreter, PARROT_DEBUG_FLAG)) {
             PIO_eprintf(interpreter, "\t%vd: %s\n", i, argv[i]);