Author: gozer Date: Tue Jan 25 16:09:00 2005 New Revision: 126447 URL: http://svn.apache.org/viewcvs?view=rev&rev=126447 Log: Cleanup: whitespace Modified: perl/modperl/trunk/xs/typemap
Modified: perl/modperl/trunk/xs/typemap Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/typemap?view=diff&rev=126447&p1=perl/modperl/trunk/xs/typemap&r1=126446&p2=perl/modperl/trunk/xs/typemap&r2=126447 ============================================================================== --- perl/modperl/trunk/xs/typemap (original) +++ perl/modperl/trunk/xs/typemap Tue Jan 25 16:09:00 2005 @@ -1,12 +1,12 @@ TYPEMAP -void * T_VPTR +void * T_VPTR char_len * T_CHAR_LEN const char_len * T_CONST_CHAR_LEN ###################################################################### OUTPUT T_POOLOBJ - sv_setref_pv($arg, \"${ntype}\", (void*)$var); + sv_setref_pv($arg, \"${ntype}\", (void*)$var); T_APACHEOBJ sv_setref_pv($arg, \"${ntype}\", (void*)$var); @@ -28,7 +28,7 @@ T_PTROBJ if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); - $var = INT2PTR($type,tmp); + $var = INT2PTR($type, tmp); } else { Perl_croak(aTHX_ SvROK($arg) ? @@ -42,7 +42,7 @@ if (tmp == 0) { Perl_croak(aTHX_ \"invalid pool object (already destroyed?)\"); } - $var = INT2PTR($type,tmp); + $var = INT2PTR($type, tmp); } else { Perl_croak(aTHX_ SvROK($arg) ? @@ -71,7 +71,7 @@ $var = modperl_xs_sv2request_rec(aTHX_ $arg, \"$ntype\", cv) T_VPTR - $var = INT2PTR($type,SvIV(SvROK($arg) ? SvRV($arg) : $arg)) + $var = INT2PTR($type, SvIV(SvROK($arg) ? SvRV($arg) : $arg)) T_APR_TIME $var = (apr_time_t)(apr_time_from_sec(SvNV($arg)))