Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
              '',
              '0'
            ];
    
  2. or download this
    $VAR1 = [
              undef,
              'Interrupted system call',
              '4'
            ];
    
  3. or download this
             my $ret = $self->{_socket}->recv( my $buffer, 131072 );
             unless ( defined $ret ) {
    ...
    +            next if $! == EINTR or $! == 0;
                 confess "Error reading reply from server: $!";
             }