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

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