2 $a2l = search_path ("i386-elf-addr2line") || search_path ("addr2line");
4 open (A2L, "$a2l -fe $bin " . join (' ', @ARGV) . "|");
5 while ($function = <A2L>) {
9 print shift (@ARGV), ": $function ($line)\n";
14 for $dir (split (':', $ENV{PATH})) {
15 my ($file) = "$dir/$target";
16 return $file if -e $file;