diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-30 02:50:01 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-30 02:50:01 +0000 |
commit | 91275eb478ceb58083426099b6da3f4c7e189f19 (patch) | |
tree | 260f7d2fa77408b38c5cea96b320b9b0b6713ff2 /debian/vendor-h2o/share/h2o/annotate-backtrace-symbols | |
parent | Merging upstream version 1.9.4. (diff) | |
download | dnsdist-91275eb478ceb58083426099b6da3f4c7e189f19.tar.xz dnsdist-91275eb478ceb58083426099b6da3f4c7e189f19.zip |
Merging debian version 1.9.4-1.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/vendor-h2o/share/h2o/annotate-backtrace-symbols')
-rwxr-xr-x | debian/vendor-h2o/share/h2o/annotate-backtrace-symbols | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols b/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols deleted file mode 100755 index 6d7c8a2..0000000 --- a/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols +++ /dev/null @@ -1,26 +0,0 @@ -#! /bin/sh -exec ${H2O_PERL:-perl} -x $0 "$@" -#! perl - -use strict; -use warnings; - -while (my $line = <STDIN>) { - chomp $line; - if ($line =~ m{^([^\(\[]+)(.*?)\[(0x[0-9A-Fa-f]+)\]}) { - my ($exe, $info, $addr) = ($1, $2, $3); - my $resolved = addr2line($exe, $addr); - $line = "$exe${info}[$addr] $resolved" - if $resolved; - } - print "$line\n"; -} - -sub addr2line { - my ($exe, $addr) = @_; - open my $fh, "-|", qw(addr2line -pif -e), $exe, $addr - or return; - my $resolved = <$fh>; - chomp $resolved; - $resolved; -} |