You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@subversion.apache.org by rs...@apache.org on 2013/07/26 14:58:25 UTC
svn commit: r1507301 - in /subversion/branches/1.7.x-r1507044: ./
subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
Author: rschupp
Date: Fri Jul 26 12:58:24 2013
New Revision: 1507301
URL: http://svn.apache.org/r1507301
Log:
On the 1.7.x-r1507044 branch, backport r1507044 from trunk, with the
following changes:
* subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c:
Use ye olde apr_hash_set instead of svn_hash_sets.
Resolve whitepace conflicts.
Modified:
subversion/branches/1.7.x-r1507044/ (props changed)
subversion/branches/1.7.x-r1507044/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
Propchange: subversion/branches/1.7.x-r1507044/
------------------------------------------------------------------------------
Merged /subversion/trunk:r1507044
Modified: subversion/branches/1.7.x-r1507044/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x-r1507044/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c?rev=1507301&r1=1507300&r2=1507301&view=diff
==============================================================================
--- subversion/branches/1.7.x-r1507044/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c (original)
+++ subversion/branches/1.7.x-r1507044/subversion/bindings/swig/perl/libsvn_swig_perl/swigutil_pl.c Fri Jul 26 12:58:24 2013
@@ -114,9 +114,9 @@ static apr_hash_t *svn_swig_pl_to_hash(S
h = (HV *)SvRV(source);
cnt = hv_iterinit(h);
while (cnt--) {
- SV* item = hv_iternextsv(h, &key, &retlen);
- void *val = cv(item, ctx, pool);
- apr_hash_set(hash, key, APR_HASH_KEY_STRING, val);
+ SV* item = hv_iternextsv(h, &key, &retlen);
+ void *val = cv(item, ctx, pool);
+ apr_hash_set(hash, apr_pstrmemdup(pool, key, retlen), retlen, val);
}
return hash;