Reolink.pm: Images should be TrueColor

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;