aboutsummaryrefslogtreecommitdiffstats
path: root/tools/perf/util/scripting-engines/trace-event-perl.c
diff options
context:
space:
mode:
Diffstat (limited to 'tools/perf/util/scripting-engines/trace-event-perl.c')
-rw-r--r--tools/perf/util/scripting-engines/trace-event-perl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index 014ecd6f67c4..c1555fd0035a 100644
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -309,10 +309,10 @@ static SV *perl_process_callchain(struct perf_sample *sample,
309 if (node->map) { 309 if (node->map) {
310 struct map *map = node->map; 310 struct map *map = node->map;
311 const char *dsoname = "[unknown]"; 311 const char *dsoname = "[unknown]";
312 if (map && map->dso && (map->dso->name || map->dso->long_name)) { 312 if (map && map->dso) {
313 if (symbol_conf.show_kernel_path && map->dso->long_name) 313 if (symbol_conf.show_kernel_path && map->dso->long_name)
314 dsoname = map->dso->long_name; 314 dsoname = map->dso->long_name;
315 else if (map->dso->name) 315 else
316 dsoname = map->dso->name; 316 dsoname = map->dso->name;
317 } 317 }
318 if (!hv_stores(elem, "dso", newSVpv(dsoname,0))) { 318 if (!hv_stores(elem, "dso", newSVpv(dsoname,0))) {