rproxy: avoid uninitialized stat w/o debugperl

The `_' stat cache is cleared if `-x' fails, so ensure we
capture it cheaply from the preceding `-e' before attempting
`-x "/usr/bin/debugperl"'.

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm
index e2b7097..d5a9d9d 100644
--- a/lib/Devel/Mwrap/Rproxy.pm
+++ b/lib/Devel/Mwrap/Rproxy.pm
@@ -82,11 +82,13 @@ sub resolve_exe ($$) {
                 $exe = ($l =~ /\A\#\![ \t]*(\S+)/) ? $1 : $^X;
         }
         return unless -e $exe;
+        my @st = stat(_);
 
         # Debian `perl-debug' is special:
-        ($exe eq '/usr/bin/perl' && -x '/usr/bin/debugperl') and
+        if ($exe eq '/usr/bin/perl' && -x '/usr/bin/debugperl') {
+                @st = stat(_);
                 $exe = '/usr/bin/debugperl';
-        my @st = stat(_);
+        }
         $$st = pack('dd', $st[10], $st[7]); # ctime + size
         $exe;
 }