VSIStdoutSetRedirection: return what the write method returns or 1 as…

… that indicates success for GDAL
ajolma · Nov 12, 2023 · 8eee520 · 8eee520
1 parent 18bfef5
commit 8eee520
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Geo/GDAL/FFI.pm b/lib/Geo/GDAL/FFI.pm
@@ -1725,7 +1725,8 @@ sub SetWriter {
     $self->{close} = $c;
     $self->{writer} = $self->{ffi}->closure(sub {
         my ($buf, $size, $count, $stream) = @_;
-        $w->(buffer_to_scalar($buf, $size*$count));
+        my $retval = $w->(buffer_to_scalar($buf, $size*$count)) // 1;
+        return $retval;
     });
     VSIStdoutSetRedirection($self->{writer}, 0);
 }