Update Devel-PPPort to version 3.46

[perl5.git] / Porting / harness-timer-report.pl

diff --git a/Porting/harness-timer-report.pl b/Porting/harness-timer-report.pl
index e52bdef..13526e3 100755 (executable)
--- a/Porting/harness-timer-report.pl
+++ b/Porting/harness-timer-report.pl
@@ -2,7 +2,9 @@
 #
 # harness-timer-report.pl
 #
-# - read in the HARNESS_TIMER=1 output of "make test"
+# - read in the time-annotated outputs of
+#   "env HARNESS_TIMER=1 make test" or
+#   "make test_harness"
 # - convert the milliseconds to seconds
 # - compute a couple of derived values
 #   - cpu: the sum of 'self' and 'kids'
@@ -43,6 +45,7 @@ $ME [--scale=[sum|max]]
     [--min=[[cpu|wall|ratio|self|kids]=value,...]]
     [--max=[[cpu|wall|ratio|self|kids]=value,...]]
     [--order]
+    [--help|--usage]
     [logfile]
 
 The --order includes the original test order as the last column.
@@ -60,7 +63,9 @@ usage()
        'min=s' => \$Opt{min},
        'max=s' => \$Opt{max},
        'order' => \$Opt{order},
+       'help|usage' => \$Opt{help},
     );
+usage() if $Opt{help};
 
 my %SHOW;
 if (defined $Opt{show}) {