diff options
Diffstat (limited to 'lib/Devel/Mwrap/Rproxy.pm')
| -rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 6 |
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; } |