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 do...@apache.org on 2002/08/24 18:03:27 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_handler.c
dougm 2002/08/24 09:03:27
Modified: src/modules/perl modperl_handler.c
Log:
add support for HV to modperl_handler_make_args
Revision Changes Path
1.12 +5 -0 modperl-2.0/src/modules/perl/modperl_handler.c
Index: modperl_handler.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_handler.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- modperl_handler.c 6 Jun 2002 17:32:51 -0000 1.11
+++ modperl_handler.c 24 Aug 2002 16:03:27 -0000 1.12
@@ -153,6 +153,11 @@
sv = ptr ? newSVpv((char *)ptr, 0) : &PL_sv_undef;
break;
}
+ case 'H':
+ if (strEQ(classname, "HV")) {
+ sv = newRV_noinc((SV*)ptr);
+ break;
+ }
default:
sv = modperl_ptr2obj(aTHX_ classname, ptr);
break;