This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8a5ee59
)
[perl #37163] dprofpp array subscript error
author
scott@perlcode.org
<scott@perlcode.org>
Tue, 13 Sep 2005 12:11:46 +0000
(
05:11
-0700)
committer
Rafael 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
patch
|
blob
|
blame
|
history
diff --git
a/utils/dprofpp.PL
b/utils/dprofpp.PL
index
6270940
..
f9c487e
100644
(file)
--- 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")