Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/IO/SigGuard/recv.pm

package IO::SigGuard;

sub recv {
    die "Wrong args count! recv(@_)" if @_ != 4;

    $result = CORE::recv( $_[0], $_[1], $_[2], $_[3] );

    goto &recv if !defined $result && $! == Errno::EINTR();

    return $result;
}

1;