rproxy: link to mwrap_httpd /$PID/ root without each, too

We'll keep each/2000 linked, but the /$PID/ root may provide a
better jumping point.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm
index 811b503..f7f8a82 100644
--- a/lib/Devel/Mwrap/Rproxy.pm
+++ b/lib/Devel/Mwrap/Rproxy.pm
@@ -46,8 +46,9 @@ sub list {
         for (@pids) {
                 substr($_, -5, 5, ''); # chop off .sock
                 my $cmd = $valid_pid->($_) // next;
+                print $fh qq(<a\nhref="./$_/">$_</a>/);
                 $_ .= '/each/2000';
-                say $fh qq(<a\nhref="./), $_, '">', $_, "</a>\t", $cmd;
+                say $fh qq(<a\nhref="./), $_, qq(">each/2000</a>\t), $cmd;
         }
         print $fh '</pre></body></html>';
         r(200, $str);