diff options
| author | Eric Wong <mwrap-perl@80x24.org> | 2022-12-28 12:16:21 +0000 |
|---|---|---|
| committer | Eric Wong <mwrap-perl@80x24.org> | 2022-12-29 21:45:57 +0000 |
| commit | 3df9312c050249cb5eef2aed8afc3abadbba981d (patch) | |
| tree | 6bb4ac4d9c9aa229f490219d734094d04ded28e9 | |
| parent | 2cbe071c5c2fe4d1cd89a69210604aaac47bb35e (diff) | |
| download | mwrap-3df9312c050249cb5eef2aed8afc3abadbba981d.tar.gz | |
No point in showing "?? at ??:0" to prefix everything.
| -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 8dc78a2..c831a36 100644 --- a/lib/Devel/Mwrap/Rproxy.pm +++ b/lib/Devel/Mwrap/Rproxy.pm @@ -101,6 +101,7 @@ sub a2l { $a2l ? do { chomp(my $line = $a2l->lookup($addr)); + $line =~ s/\Q?? at ??:0\E//; # FreeBSD $line = Plack::Util::encode_html($line); $line =~ /\?\?/ ? "$line $exe($addr)" : ($line =~ /\S/ ? $line : "$exe($addr)"); |