X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fdprofpp.PL;h=ef994884320efa401394b0f4b980957db8213726;hb=24d786f4d2806834028ce32abc1769da2e945f9b;hp=6270940dd5ef5b5878e732969616cea1d410451b;hpb=2b884e265578a5bd57575a02ebee328a8e8dbc5e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 6270940..ef99488 100644
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -337,13 +337,13 @@ sub shortusage {
     print <<'EOF';
 dprofpp [options] [profile]
 
-    -A          Count autoloaded to *AUTOLOAD
+    -A          Count autoloaded to *AUTOLOAD.
     -a          Sort by alphabetic name of subroutines.
-    -d          Reverse sort
+    -d          Reverse sort.
     -E          Sub times are reported exclusive of child times. (default)
-    -f          Filter all calls mathcing the pattern.
+    -f          Filter all calls matching the pattern.
     -G          Group all calls matching the pattern together.
-    -g subr     Count only those who are SUBR or called from SUBR
+    -g subr     Count only subs who are SUBR or called from SUBR.
     -H          Display long manual page.
     -h          Display this short usage message.
     -I          Sub times are reported inclusive of child times.
@@ -351,12 +351,12 @@ dprofpp [options] [profile]
     -O cnt      Specifies maximum number of subroutines to display.
     -P          Used with -G to pull all other calls together.
     -p script   Specifies name of script to be profiled.
-    -Q          Used with -p to indicate the dprofpp should quit
+    -Q          Used with -p to indicate that dprofpp should quit
                 after profiling the script, without interpreting the data.
     -q          Do not print column headers.
-    -R          Count anonyms separately even if from the same package
+    -R          Count anonymous subs separately even if from the same package.
     -r          Use real elapsed time rather than user+system time.
-    -S          Create statistics for all the depths
+    -S          Create statistics for all the depths.
     -s          Use system time rather than user+system time.
     -T          Show call tree.
     -t          Show call tree, compressed.
@@ -735,7 +735,7 @@ sub parsestack {
 
 		my $ot = $t;
 		if ( $dir eq '/' ) {
-		  $syst = $stack[-1][0];
+		  $syst = $stack[-1][0] if scalar @stack;
 		  $usert = '&';
 		  $dir = '-';
 		  #warn("Inserted exit for $stack[-1][0].\n")