dougm@apache.org wrote:
> Index: modperl_config.c
> ===================================================================
> RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_config.c,v
> - else if ((val = (char *)apr_table_get(base, entries[i].key))){
> - apr_table_set(merge, entries[i].key, val);
> + else {
> + /*XXX: should setn() be addn()for PerlSetVar?
> + * since we have PerlAddVar, there may be multiple values.
> + */
> + apr_table_setn(merge, entries[i].key, entries[i].val);
yes, that's a bug, must be addn()
--
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:stas@stason.org http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
|