commit 4451a4eb86ca2f288e20928ed03b538b32858014 parent 908f34dd1f4179104cb84510ca3b2f547427e38a Author: kyle <kyle@0x30.net> Date: Fri, 25 Nov 2016 23:14:46 -0700 t/shm: move function to its only caller Diffstat:
M | t/shm.pm | | | 11 | ----------- |
M | tt/write_tus.pl | | | 8 | +++++++- |
2 files changed, 7 insertions(+), 12 deletions(-)
diff --git a/t/shm.pm b/t/shm.pm @@ -62,17 +62,6 @@ sub execs_for { return \@execs; } -sub print_tus { - my ($self) = @_; - - my $transl_units = $self->{translation_units}; - for (@$transl_units) { - my %tu = %$_; - - print "$tu{comp_file_name} $tu{size}\n"; - } -} - # # Read an exact amount of bytes. # diff --git a/tt/write_tus.pl b/tt/write_tus.pl @@ -9,4 +9,10 @@ open(my $out, '>', 'tu_list.out') or die $!; my $shm = t::shm->new($ARGV[0]); select $out; -$shm->print_tus(); + +my $transl_units = $shm->{translation_units}; +for (@$transl_units) { + my %tu = %$_; + + print "$tu{comp_file_name} $tu{size}\n"; +}