X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/blobdiff_plain/3de03c7ad617d0f03c062a82a5bb5eb070f0f7cd..fd972456d42c0d1e5031e4d12ae2ae74384e1582:/mason/dhandler

diff --git a/mason/dhandler b/mason/dhandler
index 611567a..4676769 100755
--- 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>
 %