From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 9 Jun 2023 21:09:39 +0000 (+0100)
Subject: mason/.perl-lib/TrivGal.pm: Flip the image correctly when asked.
X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/commitdiff_plain/84337f8e5f597a3671f65688dfeb3c912fb0379d

mason/.perl-lib/TrivGal.pm: Flip the image correctly when asked.
---

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index b9231b0..8d776c2 100644
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -237,7 +237,7 @@ package TrivGal::Image {
       if (defined $orient) {
 	my ($rot, $flip) = @{$ORIENT{$orient}};
 	if ($rot) { $img->image_orientate($rot); }
-	if ($flip) { $img->flip_horizontal($rot); }
+	if ($flip) { $img->flip_horizontal($flip); }
       }
     }