perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl Constants.xs
Date Fri, 03 Sep 1999 01:49:56 GMT
dougm       99/09/02 18:49:56

  Modified:    src/modules/perl Constants.xs
  Log:
  5.005_60/-d oddity fix
  
  Revision  Changes    Path
  1.17      +9 -4      modperl/src/modules/perl/Constants.xs
  
  Index: Constants.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Constants.xs,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -r1.16 -r1.17
  --- Constants.xs	1999/06/04 17:50:46	1.16
  +++ Constants.xs	1999/09/03 01:49:54	1.17
  @@ -71,9 +71,11 @@
   #ifdef dTHR
       dTHR;
   #endif
  -    ENTER;
  -    SAVEI32(hints);
  -    SAVEI16(curcop->cop_line);
  +    I32 oldhints = hints;
  +    HV *old_cop_stash = curcop->cop_stash;
  +    HV *old_curstash = curstash;
  +    line_t oldline = curcop->cop_line;
  +
       hints &= ~HINT_BLOCK_SCOPE;
   
       if(stash) {
  @@ -92,7 +94,10 @@
   	   newSVOP(OP_CONST, 0, &sv_no),	
   	   newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv)));
   
  -    LEAVE;
  +    hints = oldhints;
  +    curcop->cop_stash = old_cop_stash;
  +    curstash = old_curstash;
  +    curcop->cop_line = oldline;
   }
   
   static enum cmd_how autoload_args_how(char *name) {
  
  
  

Mime
View raw message