summaryrefslogtreecommitdiff
path: root/reolink/Reolink.pm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--reolink/Reolink.pm6
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;