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...@hyperreal.org on 1998/09/02 00:04:36 UTC
cvs commit: modperl/src/modules/perl Server.xs
dougm 98/09/01 15:04:36
Modified: src/modules/perl Server.xs
Log:
fix $r->server->names
Revision Changes Path
1.3 +3 -6 modperl/src/modules/perl/Server.xs
Index: Server.xs
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/Server.xs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Server.xs 1998/08/27 02:42:20 1.2
+++ Server.xs 1998/09/01 22:04:35 1.3
@@ -104,16 +104,13 @@
OUTPUT:
RETVAL
-char *
+void
names(server)
Apache::Server server
CODE:
#if MODULE_MAGIC_NUMBER < 19980305
- RETVAL = server->names;
+ ST(0) = sv_2mortal(newSVpv(server->names,0));
#else
- RETVAL = ""; /* XXX: fixme */
+ ST(0) = array_header2avrv(server->names);
#endif
-
- OUTPUT:
- RETVAL