summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/share/h2o/annotate-backtrace-symbols')
-rwxr-xr-xdebian/vendor-h2o/share/h2o/annotate-backtrace-symbols26
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;
-}