11917076d429c44c087b39e77fe10e7e1ce959f4
[perl.git] / do / shutdown
1 int
2 do_shutdown(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     int how;
10
11     if (!stab)
12         goto nuts;
13
14     stio = stab_io(stab);
15     if (!stio || !stio->ifp)
16         goto nuts;
17
18     how = (int)str_gnum(st[++sp]);
19     return shutdown(fileno(stio->ifp), how) >= 0;
20
21 nuts:
22     if (dowarn)
23         warn("shutdown() on closed fd");
24     errno = EBADF;
25     return FALSE;
26
27 }
28