summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-06-01 07:52:27 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-06-01 07:52:27 +0000
commitd78bda3d795fc7304baa075ae01db33175e538c2 (patch)
treeaa79b78a13294f1a745ce7e226790adc12177c5f /perl.c
parentbfdd149997f4a56ec34c947f0d733ecbfb53a519 (diff)
downloadperl-d78bda3d795fc7304baa075ae01db33175e538c2.tar.gz
tweak for change#6127
p4raw-link: @6127 on //depot/perl: 968b39461011b9bd1e503c77c95c2eeec281b946 p4raw-id: //depot/perl@6184
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index 1cc1a87d04..5df462db9d 100644
--- a/perl.c
+++ b/perl.c
@@ -1609,7 +1609,6 @@ L<perlcall>.
I32
Perl_call_sv(pTHX_ SV *sv, I32 flags)
-
/* See G_* flags in cop.h */
{
dSP;
@@ -1667,7 +1666,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
CATCH_SET(oldcatch);
}
else {
- cLOGOP->op_other = PL_op;
+ myop.op_other = (OP*)&myop;
PL_markstack_ptr--;
/* we're trying to emulate pp_entertry() here */
{