Bug #5870 for IPC-Run: [PATCH] fix for interrupted system call in IPC::Run::

Thu Apr 01 07:51:17 2004 Guest - Ticket created

Subject:

[PATCH] fix for interrupted system call in IPC::Run::_read

Hello, On one of our boxes I have a problem with IPC::Run dying in IPC::Run::_read with message about interrupted system call. Patch below fixes the problem: german@comp1833mhz:~$ diff -u Run.pm.orig Run.pm --- Run.pm.orig Thu Apr 1 16:52:06 2004 +++ Run.pm Thu Apr 1 16:51:54 2004 @@ -1343,7 +1343,8 @@ confess 'undef' unless defined $_[0] ; my $s = '' ; my $r = POSIX::read( $_[0], $s, 10_000 ) ; - croak "$!: read( $_[0] )" unless $r ; + croak "$!: read( $_[0] )" if not($r) and $! != POSIX::EINTR; + $r ||= 0; _debug "read( $_[0] ) = $r chars '$s'" if _debugging_data ; return $s ; }

Wed Jan 19 17:57:04 2005 RSOD [...] cpan.org - Correspondence added

Thanks, the patch has been applied and a new IPC::Run release should be on CPAN within 1-3 days. - R. [guest - Thu Apr 1 07:51:17 2004]: Show quoted text

> Hello, > > On one of our boxes I have a problem with IPC::Run dying in > IPC::Run::_read with message about interrupted system call. > > Patch below fixes the problem: > > german@comp1833mhz:~$ diff -u Run.pm.orig Run.pm > --- Run.pm.orig Thu Apr 1 16:52:06 2004 > +++ Run.pm Thu Apr 1 16:51:54 2004 > @@ -1343,7 +1343,8 @@ > confess 'undef' unless defined $_[0] ; > my $s = '' ; > my $r = POSIX::read( $_[0], $s, 10_000 ) ; > - croak "$!: read( $_[0] )" unless $r ; > + croak "$!: read( $_[0] )" if not($r) and $! != POSIX::EINTR; > + $r ||= 0; > _debug "read( $_[0] ) = $r chars '$s'" if _debugging_data ; > return $s ; > }

Wed Jan 19 17:57:05 2005 RSOD [...] cpan.org - Status changed from 'new' to 'resolved'

Wed Jan 19 17:57:15 2005 RSOD [...] cpan.org - Taken

Bug #5870 for IPC-Run: [PATCH] fix for interrupted system call in IPC::Run::_read