cvs commit: modperl/src/modules/perl perl_util.c

[geoff]

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);
       }