Author: randyk Date: Mon Dec 27 10:47:17 2004 New Revision: 123437 URL: http://svn.apache.org/viewcvs?view=rev&rev=123437 Log: declare variable earlier for some compilers Modified: perl/modperl/trunk/xs/APR/URI/APR__URI.h
Modified: perl/modperl/trunk/xs/APR/URI/APR__URI.h Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/APR/URI/APR__URI.h?view=diff&rev=123437&p1=perl/modperl/trunk/xs/APR/URI/APR__URI.h&r1=123436&p2=perl/modperl/trunk/xs/APR/URI/APR__URI.h&r2=123437 ============================================================================== --- perl/modperl/trunk/xs/APR/URI/APR__URI.h (original) +++ perl/modperl/trunk/xs/APR/URI/APR__URI.h Mon Dec 27 10:47:17 2004 @@ -38,12 +38,13 @@ static MP_INLINE SV *mpxs_apr_uri_parse(pTHX_ SV *classname, SV *p_sv, const char *uri_string) { + SV *uri_sv; apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); modperl_uri_t *uri = modperl_uri_new(p); (void)apr_uri_parse(p, uri_string, &uri->uri); - SV *uri_sv = sv_setref_pv(NEWSV(0, 0), "APR::URI", (void*)uri); + uri_sv = sv_setref_pv(NEWSV(0, 0), "APR::URI", (void*)uri); mpxs_add_pool_magic(uri_sv, p_sv); return uri_sv;