Change 25420 by [EMAIL PROTECTED] on 2005/09/16 13:50:39
Integrate:
[ 24693]
Subject: Re: [perl #35977] perlbug AutoReply: Devel::DProf "unstacked
calls in outer"
From: Duncan Findlay <[EMAIL PROTECTED]>
Date: Wed, 1 Jun 2005 12:18:08 -0400
Message-ID: <[EMAIL PROTECTED]>
[ 25413]
Subject: [perl #37163] dprofpp array subscript error
From: [EMAIL PROTECTED] (via RT) <[EMAIL PROTECTED]>
Date: Tue, 13 Sep 2005 12:11:46 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/utils/dprofpp.PL#8 integrate
Differences ...
==== //depot/maint-5.8/perl/utils/dprofpp.PL#8 (text) ====
Index: perl/utils/dprofpp.PL
--- perl/utils/dprofpp.PL#7~24154~ Mon Apr 4 15:35:30 2005
+++ perl/utils/dprofpp.PL Fri Sep 16 06:50:39 2005
@@ -735,7 +735,7 @@
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")
@@ -763,9 +763,9 @@
}
add_to_tree($curdeep_times, $ename,
$t - $overhead) if $opt_S;
- exitstamp( [EMAIL PROTECTED], [EMAIL PROTECTED],
- $t - $overhead,
- $times, $ctimes, $ename, \$in, $tab,
+ exitstamp( [EMAIL PROTECTED], [EMAIL PROTECTED],
+ $t - $overhead,
+ $times, $ctimes, $name, \$in, $tab,
$curdeep_times, \%outer );
}
next unless $in_level or $name eq $opt_g;
End of Patch.
