rproxy: bail out early on errors reading /proc/$$/cmdline

I'm not sure if it's really an issue, but it it narrows down
the places where uninitialized variable warnings can happen.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm
index 98cba4e..e14cd05 100644
--- a/lib/Devel/Mwrap/Rproxy.pm
+++ b/lib/Devel/Mwrap/Rproxy.pm
@@ -29,7 +29,7 @@ my $valid_pid = $^O eq 'linux' ? sub {
         my ($pid) = @_;
         if (open(my $fh, '<', "/proc/$pid/cmdline")) {
                 local $/;
-                my $str = <$fh>;
+                my $str = <$fh> // return;
                 $str =~ tr/\0/ /;
                 Plack::Util::encode_html($str);
         }