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.470 2010/02/22 20:18:42 srb Exp $ + // $Id: master.pike.in,v 1.471 2010/03/03 13:00:31 mast Exp $      #pike __REAL_VERSION__   //#pragma strict_types      //! @appears predef::MasterObject   //!   //! Master control program for Pike.   //!   //! @seealso   //! @[predef::master()], @[predef::replace_master()]
pike.git/lib/master.pike.in:1643:   {    program ret;    Stat s;    string fname=pname+ext;       resolv_debug("low_findprog(%O, %O, %O, %O)\n",    pname, ext, handler, mkobj);      #ifdef THREADED    object key; -  // FIXME: The catch is needed, since we might be called in -  // a context when threads are disabled. -  // (compile() disables threads). +  // The catch is needed, since we might be called in a context when +  // threads are disabled. (compile() disables threads).    mixed err = catch {    key=compilation_mutex->lock(2);    }; -  if (err) { -  werror( "low_findprog: Caught spurious error:\n" -  "%s\n", describe_backtrace(err) ); -  } +  if (err && !has_suffix (err[0], "when threads are disabled!")) +  throw (err);   #endif      #ifdef PIKE_MODULE_RELOC    fname = unrelocate_module(fname);   #endif      #ifdef __NT__    // Ugly kluge to work better with cygwin32 "/X:/" paths.    if(getenv("OSTYPE")=="cygwin32")    {