File tree Expand file tree Collapse file tree 2 files changed +5
-1
lines changed Expand file tree Collapse file tree 2 files changed +5
-1
lines changed Original file line number Diff line number Diff line change 1
1
Revision history for Mojo-IOLoop-ReadWriteFork
2
2
3
+ 0.06
4
+ * Fix "Use of uninitialized value in numeric eq (==) at ReadWriteFork.pm line 182."
5
+
3
6
0.05 Wed Feb 19 13:29:54 2014
4
7
* Fix "read" event cannot change ERRNO from sysread()
5
8
Original file line number Diff line number Diff line change @@ -127,6 +127,7 @@ sub start {
127
127
my $args = ref $_ [0] ? $_ [0] : {@_ };
128
128
129
129
$args -> {env } = { %ENV };
130
+ $self -> {errno } = 0;
130
131
$args -> {program } or die ' program is required input' ;
131
132
$args -> {conduit } ||= ' pipe' ;
132
133
$args -> {program_args } ||= [];
@@ -302,7 +303,7 @@ sub _read {
302
303
my $stdout_read = $self -> {stdout_read } or return ;
303
304
my $read = $stdout_read -> sysread (my $buffer , CHUNK_SIZE, 0);
304
305
305
- $self -> {errno } = $! ;
306
+ $self -> {errno } = $! // 0 ;
306
307
307
308
return unless defined $read ;
308
309
return unless $read ;
You can’t perform that action at this time.
0 commit comments