From 458a80b28430759f20b5b724a1e59392608e0db7 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 11 Jun 2023 17:55:33 +0100 Subject: [PATCH] mason/dhandler (.contact): Slightly reformat trailing-`/' redirect code. --- mason/dhandler | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; -- 2.11.0