about summary refs log tree commit homepage
path: root/perl/dtas-graph
diff options
context:
space:
mode:
Diffstat (limited to 'perl/dtas-graph')
-rwxr-xr-xperl/dtas-graph3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl/dtas-graph b/perl/dtas-graph
index 9028303..b243086 100755
--- a/perl/dtas-graph
+++ b/perl/dtas-graph
@@ -123,7 +123,8 @@ foreach my $pid (sort { $a <=> $b } keys %pids) {
 print "\nPIPEID PIPE_INO\n";
 foreach my $pipe_id (sort { $a <=> $b } keys %graphed) {
         printf "% 6s", "|$pipe_id";
-        print " ", $graphed{$pipe_id}, "\n";
+        my $ino = $graphed{$pipe_id};
+        printf " %u (0x%0x)\n", $ino, $ino;
 }
 
 print $graph->as_ascii;