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: $!";
         }