You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2003/10/30 20:39:17 UTC
cvs commit: modperl/src/modules/perl perl_util.c
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);
}