* ruby.c (rb_argv0): revised for ext/tk.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@17067 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 3 insertions, 0 deletions

diff --git a/ruby.c b/ruby.c
index a8945ea0d..bf80c9527 100644
--- a/ruby.c
+++ b/ruby.c
@@ -955,6 +955,7 @@ opt_enc_index(VALUE enc_name)
 }
 
 #define rb_progname (GET_VM()->progname)
+VALUE rb_argv0;
 
 static VALUE
 process_options(VALUE arg)
@@ -1470,6 +1471,7 @@ ruby_prog_init(void)
     rb_define_hooked_variable("$PROGRAM_NAME", &rb_progname, 0, set_arg0);
 
     rb_define_global_const("ARGV", rb_argv);
+    rb_global_variable(&rb_argv0);
 
 #ifdef MSDOS
     /*
@@ -1525,6 +1527,7 @@ ruby_process_options(int argc, char **argv)
     NODE *tree;
 
     ruby_script(argv[0]);	/* for the time being */
+    rb_argv0 = rb_str_new4(rb_progname);
     args.argc = argc;
     args.argv = argv;
     args.opt = cmdline_options_init(&opt);