X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Ftypemap;h=530db05b915e58c67c69589e0450cf852f87486a;hb=eede4b76835e8980af89a8c5f7257cbd22161d9c;hp=b09a53cad50ea17e47f8691544ee7f938ffa752e;hpb=90a18d65d343c91612c14724f427519f301971a5;p=catagits%2Ffcgi2.git

diff --git a/perl/typemap b/perl/typemap
index b09a53c..530db05 100644
--- a/perl/typemap
+++ b/perl/typemap
@@ -1,6 +1,6 @@
 TYPEMAP
 FCGI	T_FCGIOBJNOMUNGE
-FCGI::Request T_FCGIREQUEST
+FCGI::Stream T_FCGISTREAM
 
 INPUT
 T_FCGIOBJNOMUNGE
@@ -8,8 +8,8 @@ T_FCGIOBJNOMUNGE
 	$var = ($type) SvIV((SV*)SvRV($arg));
     } else
 	croak(\"$var is not of type ${ntype}\")
-T_FCGIREQUEST
-    if (sv_isa($arg, \"FCGI::Request\")) {
+T_FCGISTREAM
+    if (sv_isa($arg, \"FCGI::Stream\")) {
 	$var = ($type) SvIV((SV*)SvRV($arg));
     } else
 	croak(\"$var is not of type ${ntype}\")