diff options
| author | Eric Wong <mwrap-perl@80x24.org> | 2022-12-27 21:56:29 +0000 |
|---|---|---|
| committer | Eric Wong <mwrap-perl@80x24.org> | 2022-12-27 21:56:40 +0000 |
| commit | b4bf880c8deac37445a493adf9c5eb42a168a486 (patch) | |
| tree | 46134e1936c10b8b4f5622679692bf1660a1587f | |
| parent | 0acfabde7d5d4bccc4098aba84c47b9787a6136e (diff) | |
| download | mwrap-b4bf880c8deac37445a493adf9c5eb42a168a486.tar.gz | |
FreeBSD addr2line uses `?? at ??:0' for unresolved addresses, so relax the regexp we use for handling unresolved output.
| -rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm index b2bee8c..c96a947 100644 --- a/lib/Devel/Mwrap/Rproxy.pm +++ b/lib/Devel/Mwrap/Rproxy.pm @@ -66,7 +66,7 @@ sub a2l { my $a2l = $addr2line{$exe} //= Devel::Mwrap::Rproxy::A2L->new($exe); chomp(my $line = $a2l->lookup($addr)); $line = Plack::Util::encode_html($line); - $line =~ /\A\?\?:/ ? "$line $exe $addr" : $line; + $line =~ /\?\?/ ? "$line $exe $addr" : $line; } sub call { # PSGI entry point |