our $STATICURL //= "$ROOTURL/tgal-static";
our $SCRIPTURL;
+export qw{$SRCURL};
+our $SRCURL = "https://git.distorted.org.uk/~mdw/tgal/";
+
export qw{%SIZE};
our %SIZE = (smallthumb => 96,
medthumb => 144,
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;