[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    cvs commit: modperl/src/modules/perl perl_util.c
From:       geoff () apache ! org
Date:       2003-10-30 19:39:17
[Download RAW message or body]

geoff       2003/10/30 11:39:17

  Modified:    src/modules/perl perl_util.c
  Log:
  change $INC{$key} = undef; to delete $INC{$key}; in PerlFreshRestart
  workaround for possible 5.8.2 change in require() behavior
  
  Revision  Changes    Path
  1.53      +3 -4      modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.52
  retrieving revision 1.53
  diff -u -r1.52 -r1.53
  --- perl_util.c	14 Mar 2003 05:03:16 -0000	1.52
  +++ perl_util.c	30 Oct 2003 19:39:17 -0000	1.53
  @@ -500,10 +500,9 @@
   				   "%s not found in %%INC\n", elts[i].key));
   		continue;
   	    }
  -	    SvREFCNT_dec(HeVAL(entry));
  -	    HeVAL(entry) = &sv_undef;
  -	    MP_TRACE_g(fprintf(stderr, "reloading %s\n", HeKEY(entry)));
  -	    perl_require_pv(HeKEY(entry));
  +	    hv_delete_ent(hash, keysv, G_DISCARD, 0);
  +	    MP_TRACE_g(fprintf(stderr, "reloading %s\n", elts[i].key));
  +	    perl_require_pv(elts[i].key);
   	}
   	SvREFCNT_dec(keysv);
       }
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]