Change 25413 by [EMAIL PROTECTED] on 2005/09/14 08:58:04
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/perl/utils/dprofpp.PL#18 edit
Differences ...
==== //depot/perl/utils/dprofpp.PL#18 (text) ====
Index: perl/utils/dprofpp.PL
--- perl/utils/dprofpp.PL#17~24693~ Fri Jun 3 02:52:21 2005
+++ perl/utils/dprofpp.PL Wed Sep 14 01:58:04 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")
End of Patch.
