diff options
| author | scott@perlcode.org <scott@perlcode.org> | 2005-09-13 05:11:46 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-14 08:58:04 +0000 |
| commit | 3b3034892f7cb176fcb62aa4f67e521945855c1b (patch) | |
| tree | 56bc149a07dbba1187ec9de3cc0a58fc36b0d370 /utils | |
| parent | 8a5ee598064a7ab5fb9cab938473deea1cabd20f (diff) | |
| download | perl-3b3034892f7cb176fcb62aa4f67e521945855c1b.tar.gz | |
[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
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/dprofpp.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index 6270940dd5..f9c487e0ff 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") |