mason/dhandler (.image): Slight reformatting.

diff --git a/mason/dhandler b/mason/dhandler
index 611567a9d9c27f1bcaaf00ae006a18353ae501a9..4676769a462d1e735c54aa3a30b0bd8d947ae24d 100755 (executable)
--- a/mason/dhandler
+++ b/mason/dhandler
@@ -248,12 +248,11 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
        }
 
        my $links = "";
-       my $pre =
-         urlencode join_paths $SCRIPTURL, $dir;
+       my $pre = urlencode join_paths $SCRIPTURL, $dir;
        for my $rel (qw{up first prev next last}) {
-         exists $link{$rel} and 
-           $links .= sprintf "  <link rel=%s href=\"%s\">\n",
-             $rel, urlencode "$pre/$link{$rel}";
+         $links .= sprintf "  <link rel=%s href=\"%s\">\n", $rel,
+                           urlencode "$pre/$link{$rel}"
+           if exists $link{$rel};
        }
 </%perl>
 %