From 3b3034892f7cb176fcb62aa4f67e521945855c1b Mon Sep 17 00:00:00 2001
From: "scott@perlcode.org" <scott@perlcode.org>
Date: Tue, 13 Sep 2005 05:11:46 -0700
Subject: [PATCH] [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
---
 utils/dprofpp.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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