--- embedaddon/rsync/support/rsyncstats	2012/02/17 15:09:30	1.1.1.1
+++ embedaddon/rsync/support/rsyncstats	2021/03/17 00:32:36	1.1.1.2
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # This script parses the default logfile format produced by rsync when running
 # as a daemon with transfer logging enabled.  It also parses a slightly tweaked
@@ -270,27 +270,27 @@ foreach $hour (sort keys %xfertbytes) {
 exit(0);
 
 sub datecompare {
-    $a gt $b;
+    $a cmp $b;
 }
 
 sub domnamcompare {
 
    $sdiff = length($a) - length($b);
-   ($sdiff < 0) ? -1 : ($sdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0;
+   ($sdiff < 0) ? -1 : ($sdiff > 0) ? 1 : $a cmp $b;
 
 }
 
 sub bytecompare {
 
    $bdiff = $groupbytes{$b} - $groupbytes{$a};
-   ($bdiff < 0) ? -1 : ($bdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0;
+   ($bdiff < 0) ? -1 : ($bdiff > 0) ? 1 : $a cmp $b;
 
 }
 
 sub faccompare {
 
    $fdiff = $fac{$b} - $fac{$a};
-   ($fdiff < 0) ? -1 : ($fdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0;
+   ($fdiff < 0) ? -1 : ($fdiff > 0) ? 1 : $a cmp $b;
 
 }