File: typemap

package info (click to toggle)
libfcgi-perl 0.79%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 148 kB
  • sloc: perl: 149; makefile: 10
file content (17 lines) | stat: -rw-r--r-- 371 bytes parent folder | download | duplicates (30) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
TYPEMAP
FCGI		T_PTROBJ
FCGI::Stream	T_PTROBJ
GLOBREF		T_GLOBREF
HASHREF		T_HASHREF

INPUT
T_GLOBREF
    if (SvROK($arg) && isGV(SvRV($arg))) {
	$var = (GV*)SvRV($arg);
    } else
	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\");