Permalink
Browse files

tidy

  • Loading branch information...
1 parent 2bdd11d commit bdb1026d70f7be2be83ccd94bff43d95ced95f96 @kentfredric kentfredric committed Jul 5, 2009
Showing with 3 additions and 8 deletions.
  1. +1 −3 examples/example2.pl
  2. +2 −5 examples/example3.pl
@@ -12,9 +12,7 @@
my $extractor = ELF::Extract::Sections->new( file => '/lib/libz.so', );
print "5 Largest Sections:\n";
-for ( @{ $extractor->sorted_sections( field => 'size', descending => 1 ) }
- [ 0 .. 5 ] )
-{
+for ( @{ $extractor->sorted_sections( field => 'size', descending => 1 ) }[ 0 .. 5 ] ) {
print "$_\n";
print "-\n";
print substr( $_->contents, 0, 10 );
@@ -6,16 +6,13 @@
use FindBin;
use lib "$FindBin::Bin/../lib";
-
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($ERROR);
use ELF::Extract::Sections;
-my $e = ELF::Extract::Sections->new(
- file => '/lib/libz.so'
-);
-my @sections = @{ $e->sorted_sections(field => 'size', descending => 0 ) };
+my $e = ELF::Extract::Sections->new( file => '/lib/libz.so' );
+my @sections = @{ $e->sorted_sections( field => 'size', descending => 0 ) };
#print "$sections[-1]";

0 comments on commit bdb1026

Please sign in to comment.