Changeset 518793d

Timestamp:

05/30/15 15:56:39 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

a7b97b9, 09f3093

Parents:

24aa734

git-author:

Hal Finkel <hfinkel@…> (05/30/15 15:56:39)

git-committer:

Hal Finkel <hfinkel@…> (05/30/15 15:56:39)

Message:

when file_name is not absolute, fix that

File:

• memlog2dot (modified) (1 diff)

memlog2dot

@@ -199 +199 @@
 
   my $file_name = $node->{'file_name'};
-  my ($func, $loc) = `addr2line -e $file_name -f 0x$exe_off`;
+
+  # If we don't have an absolute path, this is probably the base dynamic
+  # executable, so ask the shell which one it used (not foolproof because we
+  # might not have the same PATH now, but hopefully is generally the right
+  # thing).
+  if ($file_name !~ /^\//) {
+    $file_name = `which '$file_name'`;
+    chomp($file_name);
+  }
+
+  my ($func, $loc) = `addr2line -e '$file_name' -f 0x$exe_off`;
   chomp($func);
   chomp($loc);