diff options
author | Eric Wong <e@80x24.org> | 2022-12-27 21:39:54 +0000 |
---|---|---|
committer | Eric Wong <mwrap-perl@80x24.org> | 2022-12-27 21:41:43 +0000 |
commit | 50a60a449ec17c98a146936dc9c7c7d932876f65 (patch) | |
tree | 12fb30ea3d6442ae72753fe6b23aa648f11129b3 | |
parent | 6395a6ba02fdad89dc0a606a9ce3e01d3baf3238 (diff) | |
download | mwrap-50a60a449ec17c98a146936dc9c7c7d932876f65.tar.gz |
addr2line doesn't understand `+$ADDRESS' always, but `$ADDRESS' is fine.
-rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm index 2b9ccc7..19fff59 100644 --- a/lib/Devel/Mwrap/Rproxy.pm +++ b/lib/Devel/Mwrap/Rproxy.pm @@ -150,6 +150,7 @@ sub new { sub lookup { my ($self, $addr) = @_; + $addr =~ s/\A\+//; say { $self->{wr} } $addr; readline($self->{rd}); } |