File: pmat-list-orphans

package info (click to toggle)
libdevel-mat-perl 0.53-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 908 kB
  • sloc: perl: 6,224; makefile: 3
file content (21 lines) | stat: -rwxr-xr-x 382 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl

use v5.14;
use warnings;
use feature qw( say );

use Devel::MAT;

my $pmat = Devel::MAT->load( $ARGV[0] // die "Need dumpfile\n" );
$pmat->load_tool( "Inrefs" );

my $df = $pmat->dumpfile;

my %orphans;
foreach my $sv ( $df->heap ) {
   $orphans{$sv->addr} = $sv unless $sv->inrefs;
}

foreach my $addr ( sort keys %orphans ) {
   say $orphans{$addr}->desc_addr;
}