From 175e9338f03f76a55eb0e4e127efb737825b4761 Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Mon, 3 Aug 2020 10:35:04 +0200
Subject: [PATCH] stat: Sort by dwz-dt, not dwz/dt.

---
 stat | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/stat b/stat
index 4972065..fe70111 100755
--- a/stat
+++ b/stat
@@ -72,7 +72,7 @@ sub onesrcrpm($) {
   } else {
     ++$equalbyfile;
   }
-  push @{$filestat{$dwzfilesize/$dtfilesize}},"$srcrpm dwzfilesize=$dwzfilesize dtfilesize=$dtfilesize" if $dtfilesize;
+  push @{$filestat{$dwzfilesize-$dtfilesize}},sprintf("%.2f",100*$dwzfilesize/$dtfilesize).": $srcrpm dwzfilesize=$dwzfilesize dtfilesize=$dtfilesize" if $dtfilesize;
   if ($dwzrpmsize==0&&$dtrpmsize==0) {
     ++$emptybyrpm;
   } elsif ($dwzrpmsize<$dtrpmsize) {
@@ -130,20 +130,17 @@ print "dwzwinbyrpm =$dwzwinbyrpm" ." dtwinbyrpm =$dtwinbyrpm" ." equalbyrpm =$eq
 print "dwzfilesizetot=$dwzfilesizetot"." dtfilesizetot=$dtfilesizetot"." = ".($dwzfilesizetot/$dtfilesizetot*100)."%\n";
 print " dwzrpmsizetot=$dwzrpmsizetot" ."  dtrpmsizetot=$dtrpmsizetot" ." = ".( $dwzrpmsizetot/ $dtrpmsizetot*100)."%\n";
 #print "equal: $_\n" for @{$filestat{1}};
-my @sorted=map({ my $r=$_; map(($_,$r),@{$filestat{$_}}); } sort {$a<=>$b;} keys %filestat);
+my @sorted=map @{$filestat{$_}},sort {$a<=>$b;} keys(%filestat);
 sub out($) {
   my($ix)=@_;
-  my $name=$sorted[2*$ix+0];
-  my $ratio=$sorted[2*$ix+1];
-  print(sprintf("%.2f",$ratio*100)."%: $name\n");
+  print($sorted[$ix]."\n");
 }
-my $sorted=@sorted/2;
 if (@ARGV) {
-  out $_ for 0..$sorted-1;
+  out $_ for 0..$#sorted;
 } else {
   my $p=5;
   out $_ for 0..$p-1;
-  out $_ for $sorted-$p..$sorted-1;
+  out $_ for @sorted-$p..$#sorted;
 }
 print "debuginfod download size: ";
 my $dwzsizetot=0;
-- 
1.8.3.1