Branch: Tag:

2001-06-29

2001-06-29 12:45:42 by Martin Stjernholm <mast@lysator.liu.se>

The debug argument is now _debug_ to be more xml compliant. Fixed bug
when errors are thrown in variable expansions.

Rev: server/etc/modules/RXML.pmod/module.pmod:1.184

2:   //   // Created 1999-07-30 by Martin Stjernholm.   // - // $Id: module.pmod,v 1.183 2001/06/29 00:21:06 mast Exp $ + // $Id: module.pmod,v 1.184 2001/06/29 12:45:42 mast Exp $      // Kludge: Must use "RXML.refs" somewhere for the whole module to be   // loaded correctly.
321:    } \    _frame = `() (0, nil); \    DO_IF_DEBUG( \ -  if (_args && ([mapping] (mixed) _args)["-debug-tag-"]) { \ +  if (_args && ([mapping] (mixed) _args)["_debug_"]) { \    _frame->flags |= FLAG_DEBUG; \ -  m_delete (_args, "-debug-tag-"); \ +  m_delete (_args, "_debug_"); \    } \    ); \    TAG_DEBUG (_frame, "New frame\n"); \
4030:   #endif       }) { -  if (err->is_RXML_Backtrace) err->current_var = varref; +  if (objectp (err) && err->is_RXML_Backtrace) err->current_var = varref;    context->handle_exception (err, this_object()); // May throw.    val = nil;    }
5530:    return val;    };    -  if (err->is_RXML_Backtrace) err->current_var = VAR_STRING; +  if (objectp (err) && err->is_RXML_Backtrace) err->current_var = VAR_STRING;    ctx->frame_depth--;    throw (err);    }