File: typemap

package info (click to toggle)
libfcgi-perl 0.67-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 420 kB
  • ctags: 387
  • sloc: ansic: 3,299; makefile: 47; perl: 6
file content (17 lines) | stat: -rw-r--r-- 371 bytes parent folder | download | duplicates (29) 
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\");