pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.359 2004/07/14 14:00:44 grubba Exp $ + // $Id: master.pike.in,v 1.360 2004/07/14 14:04:33 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "¤/" != "\244/"   #error "master.pike.in is corrupted."   #endif   
pike.git/lib/master.pike.in:1123:   #if "¤lib_prefix¤"[0]!='¤'    // add path for architecture-dependant files    add_include_path("¤lib_prefix¤/include");    add_module_path("¤lib_prefix¤/modules");   #endif      #if "¤include_prefix¤"[0]!='¤'    include_prefix = "¤include_prefix¤";   #endif    system_module_path=pike_module_path; -  if (master()) { +  if (master() && master() != this_object()) {    // getenv() and putenv() will get confused if we don't do this.    environment = master()->environment || environment;    }   }         //! This function is called whenever a inherit is called for.   //! It is supposed to return the program to inherit.   //! The first argument is the argument given to inherit, and the second   //! is the file name of the program currently compiling. Note that the