Swap tabs for spaces

[catagits/fcgi2.git] / perl / typemap

diff --git a/perl/typemap b/perl/typemap
index ce9cd7b..62618be 100644 (file)
--- a/perl/typemap
+++ b/perl/typemap
@@ -1,9 +1,17 @@
 TYPEMAP
-FCGI   T_FCGIOBJNOMUNGE
+FCGI           T_PTROBJ
+FCGI::Stream   T_PTROBJ
+GLOBREF                T_GLOBREF
+HASHREF                T_HASHREF
 
 INPUT
-T_FCGIOBJNOMUNGE
-    if (sv_isa($arg, \"FCGI\")) {
-       $var = ($type) SvIV((SV*)SvRV($arg));
+T_GLOBREF
+    if (SvROK($arg) && isGV(SvRV($arg))) {
+       $var = (GV*)SvRV($arg);
     } else
-       croak(\"$var is not of type ${ntype}\")
+       croak(\"$var is not a GLOB reference\");
+T_HASHREF
+    if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) {
+       $var = (HV*)SvRV($arg);
+    } else
+       croak(\"$var is not a reference to a hash\");