Roxen.git/ server/ base_server/ roxen.pike

1999-11-15

1999-11-15 03:27:54 by Per Hedbor <ph@opera.com>

• dde8333d5ccdff908b38cde216e7c6a12e19d9aa (10 lines) (+7/-3) ^{[ Show | Annotate ]}
  Branch: 5.2

Support absolute path in dump

Rev: server/base_server/roxen.pike:1.347

1:   /* -  * $Id: roxen.pike,v 1.346 1999/11/11 05:23:46 mast Exp $ +  * $Id: roxen.pike,v 1.347 1999/11/15 03:27:54 per Exp $    *    * The Roxen Challenger main program.    *
7:    */      // ABS and suicide systems contributed freely by Francesco Chemolli - constant cvs_version="$Id: roxen.pike,v 1.346 1999/11/11 05:23:46 mast Exp $"; + constant cvs_version="$Id: roxen.pike,v 1.347 1999/11/15 03:27:54 per Exp $";      object backend_thread;   object argcache;
2718:      void dump( string file )   { -  program p = master()->programs[ replace(getcwd() +"/"+ file , "//", "/" ) ]; +  if( file[0] != '/' ) +  file = getcwd() +"/"+ file; +  +  program p = master()->programs[ replace(file, "//", "/" ) ];    array q;    if(!p)    {