08230d2411535cea0b647c41033ba3a9e4721c06
[perl.git] / do / connect
1 int
2 do_connect(stab, arglast)
3 STAB *stab;
4 int *arglast;
5 {
6     register STR **st = stack->ary_array;
7     register int sp = arglast[1];
8     register STIO *stio;
9     char *addr;
10
11     if (!stab)
12         goto nuts;
13
14     stio = stab_io(stab);
15     if (!stio || !stio->ifp)
16         goto nuts;
17
18     addr = str_get(st[++sp]);
19     TAINT_PROPER("connect");
20     return connect(fileno(stio->ifp), addr, st[sp]->str_cur) >= 0;
21
22 nuts:
23     if (dowarn)
24         warn("connect() on closed fd");
25     errno = EBADF;
26     return FALSE;
27
28 }
29