diff options
Diffstat (limited to 'reolink')
| -rw-r--r-- | reolink/Reolink.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/reolink/Reolink.pm b/reolink/Reolink.pm index 56b78c5..036c850 100644 --- a/reolink/Reolink.pm +++ b/reolink/Reolink.pm @@ -547,7 +547,11 @@ sub Snap { if ($this->{image_quality_workaround}) { my $image = Image::Magick->new (); $image->BlobToImage ($resp->decoded_content); - $image->Set (quality => 99); + $image->Set (quality => 66); + if ($image->Get ('type') ne 'TrueColor') { + print "Switching type from " . $image->Get ('type') . " to TrueColor\n"; + $image->Set (type => 'TrueColor'); + } $image->Write (filename => $filename); } else { my $fh; |
