From: Mark Wooding Date: Sun, 11 Jun 2023 16:55:33 +0000 (+0100) Subject: mason/dhandler (.contact): Slightly reformat trailing-`/' redirect code. X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/commitdiff_plain/458a80b28430759f20b5b724a1e59392608e0db7 mason/dhandler (.contact): Slightly reformat trailing-`/' redirect code. --- diff --git a/mason/dhandler b/mason/dhandler index 014f5da..dded49c 100755 --- a/mason/dhandler +++ b/mason/dhandler @@ -67,9 +67,9 @@ Failed to find ‘<% $path |h %>’. %###------------------------------------------------------------------------- <%def .contact>\ <%perl> - unless ($r->path_info =~ m!/$!) { - $m->redirect(join_paths($SCRIPTURL, $path) . "/"); - } + unless ($r->path_info =~ m!/$!) + { $m->redirect(join_paths($SCRIPTURL, $path) . "/"); } + my $real = join_paths $IMGROOT, $path; my $url = join_paths $SCRIPTURL, $path; my ($dd, $ff, $ii) = listdir $real;