[perl #37163] dprofpp array subscript error

From: scott@perlcode.org (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-37163-120724.9.33005980359667@perl.org>

p4raw-id: //depot/perl@25413

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 6270940..f9c487e 100644 (file)
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -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")