WIP

perlpunk · perlpunk · commit e8d6f21c9ba8 · 2025-04-02T13:58:16.000+02:00
diff --git a/lib/Mojo/IOLoop/ReadWriteProcess.pm b/lib/Mojo/IOLoop/ReadWriteProcess.pm
@@ -425,9 +425,11 @@ sub _syswrite {
 }
 
 sub _getline {
-#    warn __PACKAGE__.':'.__LINE__.": !!!!!!!!!!!!!!!! _getline(@_)\n";
+    warn __PACKAGE__.':'.__LINE__.": !!!!!!!!!!!!!!!! _getline(@_)\n";
   return unless IO::Select->new($_[0])->can_read(10);
-  shift->getline;
+  my $line = shift->getline;
+  warn __PACKAGE__.':'.__LINE__.": ------> got: $line\n";
+  return $line;
 }
 
 sub _getlines {

Original file line number	Diff line number	Diff line change
`@@ -425,9 +425,11 @@ sub _syswrite {`
`425`	`425`	`}`
`426`	`426`
`427`	`427`	`sub _getline {`
`428`		`-# warn __PACKAGE__.':'.__LINE__.": !!!!!!!!!!!!!!!! _getline(@_)\n";`
	`428`	`+ warn __PACKAGE__.':'.__LINE__.": !!!!!!!!!!!!!!!! _getline(@_)\n";`
`429`	`429`	`return unless IO::Select->new($_[0])->can_read(10);`
`430`		`- shift->getline;`
	`430`	`+ my $line = shift->getline;`
	`431`	`+ warn __PACKAGE__.':'.__LINE__.": ------> got: $line\n";`
	`432`	`+ return $line;`
`431`	`433`	`}`
`432`	`434`
`433`	`435`	`sub _getlines {`