# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1460471796 14400
# Node ID 9bb39b754ab131fb3fec1a68b12bc4661f282c3d
# Parent  e15d3387fc595a05b9d9845fe594b5e9292ea26f
finish previous change to octave_env::set_program_name

* oct-env.cc (octave_env::set_program_name):
Only perform initialization once.

diff -r e15d3387fc59 -r 9bb39b754ab1 liboctave/system/oct-env.cc
--- a/liboctave/system/oct-env.cc	Tue Apr 12 10:10:07 2016 -0400
+++ b/liboctave/system/oct-env.cc	Tue Apr 12 10:36:36 2016 -0400
@@ -261,7 +261,7 @@
 void
 octave_env::do_set_program_name (const std::string& s) const
 {
-  bool initialized = false;
+  static bool initialized = false;
 
   if (! initialized)
     {
@@ -283,6 +283,8 @@
       prog_name = (pos == std::string::npos
                    ? prog_invocation_name
                    : prog_invocation_name.substr (pos+1));
+
+      initialized = true;
     }
 }