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(); }
}
}
if ($item && $comment) { $item->comment($comment); }
close $f;
} else {
- my $st = stat "$path/$e";
+ my $st = stat $path;
unless ($st->mode&0004) { return ([], [], undef); }
opendir $d, $path;