From: scott@perlcode.org <scott@perlcode.org>
Date: Tue, 13 Sep 2005 12:11:46 +0000 (-0700)
Subject: [perl #37163] dprofpp array subscript error
X-Git-Tag: v5.10.0~5869
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/3b3034892f7cb176fcb62aa4f67e521945855c1b

[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
--- 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")