Cosmetic: Prevent mailing list archive/listinfo double-slashes ('//').

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index f5f3373..297dd53 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -211,8 +211,8 @@ print <<"HERE";
                                <td>User support,<br />bug reports</td>
                                <td>Development</td>
                                </tr>
-               <tr>@{[ map({ "<td>".a_href(&{$W->{"mailman_url_sub"}}()."/listinfo/$_",'Mailman Infopage')."</td>"; } @lists) ]}</tr>
-               <tr>@{[ map({ "<td>".a_href(&{$W->{"pipermail_url_sub"}}()."/$_",'Archive')."</td>"; } @lists) ]}</tr>
+               <tr>@{[ map({ "<td>".a_href(&{$W->{"mailman_url_sub"}}()."listinfo/$_",'Mailman Infopage')."</td>"; } @lists) ]}</tr>
+               <tr>@{[ map({ "<td>".a_href(&{$W->{"pipermail_url_sub"}}()."$_",'Archive')."</td>"; } @lists) ]}</tr>
                <tr>@{[
                        map(('<td><input type="checkbox" name="list" value="'.$_.'"'
                                        .($_ ne "captive-announce-list" ? '' : ' checked="checked"')