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

[tgal] / mason / .perl-lib / TrivGal.pm

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index b9231b0..8d776c2 100644 (file)
--- 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); }
       }
     }