This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #37163] dprofpp array subscript error
authorscott@perlcode.org <scott@perlcode.org>
Tue, 13 Sep 2005 12:11:46 +0000 (05:11 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 14 Sep 2005 08:58:04 +0000 (08:58 +0000)
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

index 6270940..f9c487e 100644 (file)
@@ -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")