diff options
| -rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 3 |
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); |